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Einführung in das Programmieren 
mitFORTH 




1 Einführung 


das Programmieren mit FORTH 


ä*n diesem Buch geht es um die Programmiersprache FORTH und darum, 
'-ie man in dieser äußerst vielseitigen Sprache Programme schrei 
ben kann. Wir machen Sie zuerst mit den grundlegenden Konzepten 
ier Programmierung vertraut, die Sie dann zu sehr leistungsf ähi 
•gen komplexen Prozeduren auszubauen lernen. 

Fie modernen elektronischen Computer verfügen über erstaunliche 
Fähigkeiten, pfc ■ ein paar Sekunden oder Minuten können.. jl^e Aufga 
ben erledigen, deren manuelle Bewältigung ansonsten Monate oder 
Fahre in Anspruch nehmen würde. Computer steuern industrielle 
Fertigungsprozesse oder überwachen medizinische Geräte in Not- 
f ai-lstatlgshen . Dennoch: Der Computer Käifjj nicht denken! Bf .-ifeaiin 

-ed i qii ch eine Folge von genauen Anweisungen befolgen, die den 
kamen Programm trägt. In diesem Buch stellen wir eine Sprache - 
genannt FORTH - dafejl mit der man Computer prögtaiiBiieren kann . Im 
ersten Kapitel befassen -wir uns dazu ein paar ,<pBU*|tilegenden 

Fakten über Computer unc vergleichen außerdem FORTIji, mit anderen 
Programmiersprachen. Das Kapitel unternimmt aber auch bereits die. 
ersteil- V'Prograitaftief schritte* Tjpsfl Ihnen, so daß Sie bereits Ihr 
erstes Programm schreiben können. 


1 . 1 Grundlegendes über Computer 


Zs.a wir uns dem Programmieren in FORTH zuwenden können, sollten 
*-~r uns: groben Zügen mit dem Aufbau eines Computers vertraut 

jrachen . Zwar beziehen sich- 1 .^hsere AustüfttUj-ngen hauptsächlich äiif 
fiükro- oder Personal Computer (das sind Computefe. die aiif einem 
sog. "Mikroprozessor" basieren), i|ä. Spjjäzip entspricht aber deren 
Aufbau auch dem der wesentlich teureren (und leistungsstärkeren) 
I-roßcomputer . 

1«3 Herzstück eines Mikrocomputers ist die sog. CPU (AbkE3?ÄU#g 
für "central Processing UJäit”, wörtlich: "ZentrÄ-le Verarbeitungs- 
eifihert" oder ^Zentraleinheit" ) . Die CPU führt alle logischen und 
arithmetischen Operationen aus, die der Computer beherrscht. Sie 
*<a-r.n z.B. zwei Zahlen zueinander addieren oder sie daraufhin lun- 
lersucheh* ob sie gleich sind. Außerdem verfügen Computer über 
einen Hauptspeicher; darin werden die Programme gespeichert, die 
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he Ergebnisse seiner Berechnungen irgendwie anzusehen. Bei den 
»eisten kleinen Computern dient ein Terminal für die; Ein- und 
V-isgabe von Informationen. Zur Eingabe von Informationen bedient 
=ich der Benutzer einer Tastatur, die der einer Schreibmaschine 
Lmelt. Die Ausgaben des Computers erscheinen auf dem Bildschirm, 
ähnlich einem gewöhnlichen Fernsehbildschirm (bei einigen der 
nlligeren EtiKxopo.mputern handelt es sich sogar um einen 'Fernse- 
ure r) . Manchmal ist auch noch ein Drucker an den Mikrocomputer an- 
reschlossen, so daß man sich die Ergebnisse von Berechnungen auch 
iusdrucken lassen kann (die Fachleute sprechen in diesem Zusam- 
menhang von "Hardcopy"). 


1 . 2 Programmiersprachen 

Alijö; Informationen werden im Computer in Form von Zahlen gespei- 
ihert. Diese Zahlen bestehen lediglich aus den Ziffern 0 und 1; 
r . an nehÄft sie auch BincLseahlen . Sg ist z.B. die Folge 0110 eine 
Tlnärzahl, die #tSic <3ie gewöhnliche (Dezimal-) Zahl 6 steht. Sie 
müssen nichts über Binärzahlen wissen, uni. einen Computer in FORTH 
zu programmieren. Einer der Gründe für den Einsatz einer Program- 
miersprache wie FORTH ist es ja gerade, daß man dadurch jjlifc dem 
Computer ihi'cht mehr in der "Sprache" der B inärzah 1 en jsij;. reden 
braucht . 

Man kann >Pxog ramm : e rur.g eines Computers auch die sogenannte 

Hasch ine nscrache verwenden. Die Befehle f«r dieser Sprache sind 
verhältnismäßig einfach; sie weisen z.B. den Computer an, zwei 
Zahlen zu addieren oder eine Zahl an einer bestimmten Stelle im 
Hauptspeicher abzuspeiöfeefii. Befehle if|' Maschinensprache bestehen 
aus langen Folgen von Nullen und Einsen! Deshalb ist die Arbeit 
mit diesen Sprachen äußerst umständlich und fehlefanfällig. Schon 
eine einfache Multiplikationsaufgabe erfordert, daß der Program 
mierer eine lange Folge von Maschinenbefehlen (die nur aus den 
Ziffefti 0 und 1 bestehen dürfen) hinschreibt, ffln den ? rogramir.i e 
reigj das Leben ?u erleichtern, hat man deshalb besondere Program 
4|S| entwickelt, die einfachere und leichter zu verstehende Befehle 
(z.B. in Englisch) in die Sprache der Nullen Binsen überfüh 

ren, die der Computer versteht . 

Es gibt ein© ganze Menge solcher Programme, da es ja auch eine 
ganze Menge ;P'iogrammiersp£ashen gibt. Dennoch lassen sich dabei 
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1 . 3 FORTH und andere Programmiersprachen 


FORTH ist nur eine Von vielen Programmiersprachen, die auf Mikro 
Computern eingesetzt werden. Andere weit verbreitete Sprachen 
sind BASIC, FORTRAN, Pascal und, in etwas geringerem Umfang, 
COBOL. FORTH unterscheidet sich ganz wesentlich von all diesen 
gebannten Sprachen. Am deutlichsten sieht man dies an einem 
Beispiel: Schreiben wir einmal ein Programm in BASIC und FORTH, 

das die beiden Zahlen *£ und 4 addiert und das Ergebnis (7) aus 
druckt . Da w r davon ausgehen, daß noch über ko : ne Program 

miererfahrung verfügen, haben wir uns auf so ein simples Beispiel 
beschränkt. Das BASIC-Programm sieht folgendermaßen aus: 


|;8-. a t :f 
20 B = 4 
30 C = A + B 

40 PRINT C ( " 


K ; er httij das FORTH-Programm: 


(1-2) 


■Schon an diesem einfachen Beispiel kann man ein.: ge Vorteile (und 
Nachteile) von FORTH erkennen. Das BASIC-Programm sieht ziemlich 
vertraut Uv$v da es ein bißchen an dl® iSehul-ätithffittik erinnert, 
-ährend das FORTH-Programm exotisch anmutet. Unbestritten ist das 
SCRTH- Programm jedoch wesentlich kürzer. Wenn Sie lange Program 
me schreiben wollen, dann werden' Sie diese Knappheit zu schätzen 
'•issen, da sie nicht soviel Schreibarbeit haben. Weil sie nicht 
so lang sind, benötigen FORTH-Programme aber auch weniger Spei- 
wj-.erplatz und laufen auch in den meisten Fällen schneller. Ande 
rerseits sind lange Programme oft "selbstdokumentierend". Wenn 
sie sauber geschrieben sind, dann erklären sich diese Programme 
selbst, und man kann durch bloßes Durchlesen dem Programm entneh 
men, wozu es dient und wie es seine Aufgabe erledigt. Wir werden 
aber sehen, daß man in ®’in FORTH-Programm Kommentare aufnehmen 
’j_rd auch sie dadurch selbstdokumentierend machen kann. 
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■der Arbeit mit Großrechnern sind die Vorteile von FORTH nicht 
unmittelbar deutjfeh. Diese CsmjSuter sind meist sehr Sehne 1 ■ 
i verfügen über eine enorme Menge an Hauptspeicher. Die Zeit 
■die Compilierung und das Sanken eines Programms kann so kisso' 
aa , daß sie für den Programmierer gar nicht mehr.-^is Gewicht 
1t. Ebenso iSftjtfc bei Großrechnern, der verminderte Speicher 
^.zbedarf nicht so sehr. Es verbleibt aber immmer noch die 
. “«Aterbarkeit von FORTH als ein großer Vorteil. 


1.4 Zum Anfang: Der "Stack" - die Postf ix-Schreibweise 


wenden aiis den grundlegenden Ideen voi 

! ihr erstes Programm schreiben können. Als 
einmal ein einfaches Programm schreiben, 

4 addiert und das Ergebnis der Addition, 7, 
7> : sieht das so aus: 


l FORTH zu, damit 
erstes wollen wir 
das die Zahlen 3 
ausdruckt. In 


- . (RETURN) 


(RETURN) wollen wir ausdrücken, daß Sie die Return-Taste auf 
r*a TÄi® I betätigen sollen (und nicht etwa das Wort "return" 
iszhreiben). Sehen wir uns nochmal etwas genauer an, wie man 
.■Ses Programm eingibt. Erst ’ '(§■$! pp en wir die 3, gefolgt von einem 
Zeichen, dann die 4 und wieder ein Leerzeichen • Anschließend 
-■in wir ein Pluszeichen ein, gefolgt von einem Leerzeichen, auf 
I ein Punfet -ilalgt. Nachdem wir all dies aingegeben haben, 
rken wir die Return-Taste. Der Computer antwortest darauf mit 


Chterj :Sie die Leerzeichen, 
crieren Leerzeichen. Anders 
tr.en als Trennzeichen, d.h., 
^einander zÄ (trennen. Deshalb 


Die meisten Programmiersprachen 
bei FORTH: Hier dienen die- I.eer- 

sie dienen dazu, einzelne Befehle 
merken Sie sich - : Leerzeichen sind 
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Natürlich müssen Sie, ehe Sie dieses Programm eingeben können, 
Ihr FORTH-System erst in den Computer bringen oder "laden". Wie 
Säe das machen, entnehmen Sie am besten Ihrem FORTH-Handbuch . 

Betrachten wir nun das Beispielprogramm (1-3) etwas genauer. 
Zuerst geben wir dem Computer die Zahlei.' ■, -3 und 4 als Datei) ein. 
Der Computer merkt sich diese Daten in einem ganz bestimmten 
Bereich des Arbeits- (oder Haupt-) Speichers, dem sog, Als 

nächstes trifft der Rechner auf das Pluszeichen. Dies stellt 
einen Befehl dar, der ihn dazu veranlaßt, die beiden Werte 3 und 
4 zu addieren, die soeben auf dem Stack gespeichert wurden. Dabei 
werden die 3 und die 4 vom Stack entfernt und statt dessen ihre 
Summe 7 dort abgelegt. Schließlich, stößt der Computer auf den Be 
fehl (!)".". Am Anfang ist es etwas seltsam, daß ein Interpunk 
tionszeichen in einer Programmiersprache einen eigenen Befehl 
darstellt, ife) FORTH sorgt dieser Befehl aber dafür, daß das Eie 
ment, das ' gerade zuoberst im Stadi? befindet, auf dem Bild 

Schirm (oder Drücker) ausgegeben wird. Wir werden diese ilinge 
noch eingehender darstellen. 

Sehen wir uns dazu den Stack einmal genauer an. Der Stack ist 

nichts anderes als eine Folge von Spe : chersLeilcn im Hauptspei 

eher des Computers. Eine bildliches 'Darstellung des Stacks sehen 
Sie in Abbildung 1-1. In 1-la ist der Stack noch leer: es sind 

bisher noch keine Informationen in den Rechner eingegeben und auf 
dem Stack gespeichert worden. 

Nehmen wir 1 Jsfetzt einmal an, wir lassen das Programm (1-3) ausfüh 
ren, weisen also den Computer an, die darin enthaltenen Befehle 

zu befolgen. Dazu "liest“ sich der Computer das eingegebene Pro 
gramm von ^ii'hks nach rechts durch. Er als erstes a üf. d : e 

Ziffer 3. Er weiß, daß dies ein Datenelement ist, das er auf der 

Stack speichern muß. Man sagt in diesem Zusammenhang im Program 
mierer jargon, daß die 3 auf den Stack g epusht . wird. Wie dies 
aussieht, können Sie der Abbildung 1 — lb entnehmen; hier ist die 2 
das oberste Element auf dem Stack. Jetzt aber weiter mit Programr 
$ß-3) ^ Der Rechner trifft als nächstes auf die 4. Auch dies ist 
ein Datenelement und muß deshalb auf den Stack gepusht werden. 
Wir erhalten die Abc i l.dung 1-lc. Beachten Sie, daß sich die D re i»J 
um einen Eintrag weiter "Sji|i.en" befindet üiwä die Vier das 
neue oberste Element auf dem Stack ist. Jedesmal, wenn nämlich- j 

Daten auf den Stack gepusht werden, wandern alle bereits vorhan 

denen Einträge um eine Position nach unten, und das neue Daten 
element wird zum neuen obersten Eintrag. 
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Fahren wir jetzt in unserem Programm (1-3) fort. Wir treffen als 
nächstes auf das Symbol +. Hierbei handelt, -gs sich nicht um 
ein Datenelement. 

Das -i-.-jist .Jäfjlelmehr ein FORTH-Wort oder Befehl. FORTH kgrvjit eine 

ganze Menge an Wörtern, die 'alle unterschiedliche Operationen 
auslösen. Wir wollen in diesem Text zur besseren Markierung der 
FORTH-Wörter Fettdruck verwenden. Das Wort + sorgt dafü% daß 

folgendes passiert: Zuerst werden die beiden obersten Elemente 
des Stacks entfernt. Für das fj§fc,£.ernen des obersten Elements hat 
sich eine eigene Terminologie eingebürgert; man sprich;®;,. diesem 
Zusammenhang von pop . Im FORTH- Jargon würde man also sagen, daß 

die beiden obersten Elemente vom Stack gepoppt werden. (Da imitier 
niä;r das oberste Element des Stacks gepoppt werden kann, werden 
die Daten der Reihettifplge "Stierst die Vier, dann die Drei" 

entfernt . ) Als nächstes sorgt das Wort + dafür, daß die beiden 

Zahlen addiert werden. Dabei ergibt sich die Summe 7, die jetzt 
auf den Stack gepusht wird. W.i f haben jetzt den Zustand in Abbil 
1 — ld. Beachten Sie, daß die Vier und die Drei verschwunden 
sind und an, ihrer Stelle jetzt der Wert 7 an oberster Stelle .®Sif 
dem Stack steht. 

Schließlich stoßen wir in unserem Programm auf das Wort . (.). 

Dieses Wort sorgt dafür, daß das oberste Element des Stacks g© 
poppt tihd auf Ihrem Terminal ausgegeben wird. Der Stack ist jetzt 
also leer, wie man an der Abbildung 1-le erkennen kann . Nachdem 
FORTH die Zahl 7 auf Ihrem Terminal ausgegeben hat, bringt es die 
Meldung "ok" und zeigt s om.tb .Äh, daß das Programm ohne Fehler 
abgearbeitet werden konnte und der Computer jetzt auf neue Befeh 
le von Ihnen wartet . 

Wir kennen nun die beiden grundlegenden Stack-Operationen, näm 
jß|ich das Abspeicherrt eines . jjiatenelements als neues oberstes Eie 
ment auf dem Stack ("push") und das Entfernen des obersten Stack- 
Elements ("pop"), wobei alle verbleibenden Elemente um eine Posi 
tiön weiterrücken. ®$.e Stack-Operation es mit sich, daß 

das zuerst auf dem Stack abgelegte Element das letzte ist, das 
von ihm entfernt werden kann. Man spricht in diesem Zusammenhang 
von dem Prinzip "Last In First Out" (übertragen etwa: als erstes 

rein, als letztes raus), das auch unter der Abkürzung LIFO be 
kannt ist. Ein anderer weit verbreiteter Name für den Stack lau 
tet daher auch LIFO-Speicher. Wenn ein Datenelement einmal mit 
'teils Pop vom Stack entfernt worden ist, dann hat Ms der Computer 
"vergessen", d.h., es kann nicht mehr zu Berechnungen heran- 
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gezogen werdeh , In den folgenden Kapiteln werden wir deshalb noch 
Methoden kennenlernen, die es uns erlauben, ein Datenelement auf 
dem Stack mehrmals Operationen heranzüziehen . 

Sicher ist Ihnen aufgefallen, daß wir in FORTH zuerst die Daten 
e i r.qeben; tÄÄ dann das Symbol, das diese Daten manipuliert, wie 
«J||| "3 4 + . " . ’fÜe Reihenfolge ist am Anfang sichet jetwas un 

gewöhnlich. Es hat sich aber gezeigt, daß sich dahinter ein äu 
ßerst wirkungsvolles Prinzip für die Programmierung von Computern 
verbirgt; auch begegnet uns diese Darstellungsweise bei einigen 
programmierbaren Taschenrechnern. Man bezeichnet diese FORTH- 
typische Schreibweise als Postf ix-Notation oder umgekehrte polni- 
sche Notation. Letztere- leitet sich von dem Erfinder clieser 
Sehre i bwe i sc her, dem politischen Logiker und Mathematiker J. 
Lukas : ew : cz. . Die normale Schreibweise, die wir von der Schul 
äfeithmetik her kennende •%fSgt den Namen Infix-Notation. Einer de#? 
wichtigsten Vorteil#; ider Postf ix-Notation besteht darin, daß man 
Xp ihr keine Klammern braübht . Aus der Schulalgebtä wissen wir, 
daß in der Infix-Schreibweise häufig der Einsatz von Klammern 
nötig wird, um eindeutige Ausdrücke zu erzielen. Angenommen, wir 
wollen die Zahlen 3 und 5 addieren und dann, das Ergebnis mit I;Ö 
multiplizieren. In der üblichen Infix-Schreibweise drücken wir 


( 3 + 5 ) 


10 


Beachten Sie, daß wir hier gleich das Symbol * verwendet haben, 
um ispie Mu 1 1 i p 1 i k#t 1 oft auszudrücken, ebenso, wie es' $-ß FORTH ü : öd 
den meisten anderen Programmiersprachen übldtfh ist . Wir brauchen 
die KlammepfS 33$ (1-5) , denn ohne sie würden wir die 3 auf das 

Produkt aus 5 und 10 addieren, wodurch wir ein völlig anderes 
Ergebnis erhalten. 

Vergleichen wir jetzt einmal, wie man die Rechenaufgabe (1-5) in 
der Postf ix-Notation hihschre|S^. Wir .machen uns das gleich ah 
einem e i nfacher. FORT”-? rogramm klar: 


10 3 5 + * . (RETURN) ( 1 - 6 ) 


SJ 
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Bisher haben wir nur ganzen Zahlen (Fachausdruck : Integer ) ge 

rechnet . Ihtegers sind solche Zahlen, die keine Nachkommastellen 
iyjfweisen Sföi deshalb nicht als |J|hu;chz&blen geschrieben werden 
i'-Essen, Fürs erste werden wir uns in unseren Beispielprogrammen 
y?vch ä,® diesen Zahlentyp beschränken. 

Eieser Abschnitt hat zwei wichtige Konzepte der Programmierspra- 
:r.e FORTH eingeführt: den. Stack und d ie Postf ix-Notation v Für das 

1 - rog ramm i e re n in FORTH sind diese von zehfctÄltr Bedeutung . Außer- 
dem haben wir die FORTH-Wörter für die Addition, die Multiplika 
non und die Ausgabe von Daten kennengelernt. Sie sollten jetzt 
r-ereits in der Lage sein, mit diesem Wissen ausgerüstet einige 
PERTH-Programme zu schreiben. 


1 . 5 Wie läßt man ein FORTH-Programm laufen? 


Einfache FORTH-Programme haben wir bereits kennengelernt. Diese 
•-erden von der Tasta|pl| eingegeben und J %% : dem Augenblick. ausge 
führt&L'tflßa.' dem wir die Ret:ji$?4-Taste drücken. Nach: seiner Ausflüßi 

rung geht das Programm allerdings verloren. Wenn Sie es wieder 

laufen lassen wollen, dann müssen Sie es erneut in voller Länge 

eingeben. Deshalb wäre es bequem, wenn wir .Programme so mer- 
ke» könnten, daß wir sie jederzeit ohne Neueingabe laufen lassen 
. cönnten. Wir behandeln in diesem Abschnitt die Möglichkeit zur 

Speicherung vdh Programmen auf -wjftskette oder Kassette. Da die 
dafeüf benötigten Arbeitsschcifcte (nicht Teil der Sprache FORTH 
sind, sondern. Ihrem Betriebssystem abhängen, können, wir .äipf 

fieses Thema nicht allzu detailliert eingehen. Genauere Einzel 
heiten dazu sollten Sie Ihrem FORTH-Handbuch entnehmen, das zu 
sammen mit Ihrem System ausgeliefejpft 1 wurde. Bei den; -.meisten 
FORTH-Systemen ähneln sich jedoch die Teö&Biken für das Eingeben, 
Bearbeiten und Speichers. Programmen. Wir wolle», • diesem 

Abschnitt! deshalb einen allgemeinen Überblick übesfj. «die nötigen 
Arbo i L s schritte geben. Außerdem untersuchen, wir noch einmal ge 
nauer den Pro z e ß des "Laufenlassens" eines Programms. 

Zur Eingabe längerer Programme bedient man Sat.dfe -KBÖstens eines 
sog. ‘ Pd i-f g.-'s . Das ist ein spezielles Programm, nHäp. dem man Text- 
^ateriä.I eisgeben (irt 'diesem Fall- QaiSk Programm) und bearbeiten 
(z.B. für Korrekturen) kann. Die meisten in FORTH-Systemen zur 
Verfügung stehenden Editoren -sind sog. Bildschirmeditoren ■ Sie 
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bearbeiten stets eine sog. Eildso*. - . J 'rb-eii 1 - - : 
gerade aüff. dem Bildsch%f$ Ihres Töffrri-« fcs ,-j 
der Regel kann eine Bildschirasediä -- I T • ä 
wohl sich bei einigen größeren Bi. ö- . :: .."St: 
fang ergibt . Meistens wird der Texi * 5 

gestellt, von denen jede bis zu 54 liert :«W 


: l-eosaen. In 

s e r-r, ob 
imtr.s : Textum 


:Lsz =_;fnehmen 


Die Programme werden )0^$ä^S0^tte ode» >• Jteeetie ;-e.-ne. l,*.- er t. Je 
der Bildschirm wird innerhalb eines si'.-me» ?r-r atme *l_s ein 
Block bezeichnet. Die Blöcke sind *#£a:rol=^ J i=-;- _r trr.JB»c- r.ert . Sie 
entsprechen bestimmten Adressen ; ää£.' Ihrer ,r.e A =>.-te :*rer Tiskette. 
Die genauen Konventionen für die Vergers . - :r I. :<:io— «r.sn entneh 
men Sie am besten Ihrem FORTH-Handbuch . '»an B.s e_s-: rs\ sriels- 
weise ein Programm edieren und es ansc~ lieber i«_r.* 51 ;cx #20 ab 
speichern wollen, dann geben Sie in einer- i- . ^-rra .- ■SC“ PC- : -System 
folgendes ein: 


120 EDIT (RETURN) 


Als nächstes können Sie das Textmat&pi^^ eir . tirc»sm iss Ihr Pro 
gramm ausmacht. (Wenn Sie in einem Block arre'-t»r. der bereits 
einmal verwendet wurde, dann müssen £5'ie erst. eima_ -das darin" 
enthaltene Textmaterial löschen, ehe Sie ' rate?- ds-» *S ' s_*3tir ,<jabe be 
ginnen können.) In den folgenden Überlegur . ger-, ^ re ' sr "-ir davon 
aus, daß das Programm f&jS einer Diskette gespeir ,-tärt wenden* eoll . 

Der Block, der sich gerade in Arbeit befindet, wird- mw. nicht 
sofort aufl Diskette gespeichert, sondern sta#6 -dessen Sta einen 
extra dafür reservierten Bereich im Arbeitsspeicher -des Computers 
aufbewahrt . Diesen SpezialbereiOfit bezeichnet raa» j*t • dem Fach 
ausdruck Pg$||er. Nach Beendigung der Ed : e rarfcef L «gären £fie ein 
spezielles Kommando ein, durch welches der Editor verlassen und 
der bearbeitete Puffer markiert wird, damit das System weiß, daß 
er aktualisiert werden muß. Der Computer weiß nun, daß der frag 
liehe Puffer neues Textmaterial enthält, das noch nicht auf Dis 
kette gespeichert worden «-tMij das Abspeiche*® neuen Materials ähf 
di#- Diskette aber bezeichnet man als Aktualisieren. Jetzt könnten 
Sie einen anderen Block edieren. Das Programm könnte ja z.B. zi) 
lang einen einzigen Block -zu passen. Dann setzen Sie 

es eihÄch .tip einem neuen, zweiten Block fort. Wenn Sie jetiife- den- 
Editor verlassen und den Block für die Aktualisierung markieren. 
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mit FORTH 


dann existieren somit im FORTH-System zwet-'-Puf fer , die Jeweils 
neues Textmaterial enthalten und für die Aktualisierung markiert 
sind. Gebert Jetzt ein 


SAVE-BUFFERS (RETURN) 


oder, bei e^&jgen FORTH-Systemen 


FLUSH (RETURN) (l-8b) 


dann wird der Inhalt der )itg|Jkierten äjiiffer auf die Diskette ge 
speichert . 

Da sich die Puffer im Hauptspeicher des Computers befinde!^. ist 
ihre AnÄaftl; beschränkt . Wie viele iftjffer genau t#^ ; |threm FORTH- 
System zur Verfügung stehen, müssen Sie Ihrem Handbuch entnehmen. 
Bei vielen FORTH-Systemen können Sie dennoch mehr Blöcke bearbei 
ten, als Puffer zur Verfügung stehen. Wenn Sie einen neuen Block 
eröffnen wollen und kein Puffer mehr vorhanden ist, dann werden 
einfach alle markierten 'jP'ctffer aüfSBi-S kette ges0l|Eieben isttd Ste 
hen danach wieder zur Verfügung. Dieser Prozeß der Aktualisierung 
geschieht völlig selbsttätig; der Benutzer braucht sich darum 
nicht zu kümmern. Durch das Speichern auf Diskette werden di®- 
Puffer wieder frei für die Aufnahme von neuem Textmaterial. 

.Jtj vielen FORTH-Systemen sagen die Bl$i5knummern auch aiiS.* an 
weicher Stelle der >ajä|skette sich der entsprechende Text befindet. 
Deshalb benötigen diese Systeme keine speziellen Inhaltsverzeich 
nisse für die Disketten. Da das Betriebssystem von FORTH in FORTH 
selbst geschrieben ist, ist es ®ä 3 g#a.eh;. dieses pA ändern und 
gegebenenfalls Inhaltsverzeichnisse mit aufzunehmen, falls Sie 
dies wünschen. Wie dies geht, erfahren Siet^üi Kapitel 8. 

Nehmen wir eijöMtaJ- an, .Sie wollen ein Programm verändern, das Sie 
Editor, eingegeben haben. Das Programm soll sich 
Block 12'Q befö|i§den. Wieder geben Sie (1-7) ein. Dafftlii&ih wird 
der Inhalt voh' Block VPXi der Diskette gelesen iinct 'itire® 

Bildschirm ausgegeben. Sie können jetzt e Lr ; e. Vielzahl unter 
schiedlicher Operafei'SneRr ' JSjgj? diesem Text anstellen, wie z.B, 
Zeichen oder Zeilen einfügen odeji '.löschen, bestehende Zeichen 
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1 H i r.füh ru.ng ±ö das ? rogramm : c rer: iäpii. FORTJf 


12 '. LOAD (1-10) 

Sann weist dieser Befehl das FORTH-System an, den Block 121 zu 
laden. Sie brauchen also nur mehr Block 120 zu laden; der Befehl 
am Ende dieses Blockes sorgt dafür, daß Block 12.1 automatisch 
r.achgeladen wird. Die genauen Einzelheiten dieses Verfahrens 
Jcönnen auch wieder: Von System zu, System variieren. Auch hierzu 
sollten Sie in Ihrem FORTH-Handbuch nachschlagen. 

Sie haben jetzt ejÜK|ge grundlegende Technikegj’.. -.'des Edieren#; und 
‘Ladens von Programmen kennengelernt . Kapitel 8 geht auf diese 
Arbeitsschritte noch einmal sehr ausführlich ein. Zusammen mit 
dem bisher Gesagten und Ihrem FORTH-Handbuch sollten Sie jedoch 
I e fcjvt. schon, .in der Jj-age sein, einfache FORTH-Programme zu schrei- 
oen, zu edieren und laufen zft lassen. 


1 . 6 Programmf ehler - Fehlersuche 


So gut wie alle Programme enthalten anfänglich Fehler. Für den 
Anfänger, ist dies oft entnervend, es sollte ihn jedoch nicht ent 
mutigen. Erfahrene Programmierer wissen, daß die Fehlersuche ein 
fester Bestandteil des Programmmierprozesses ist; fehlerhafte 
■Programme sind die Regel und nicht die Ausnahme. Sie weisen‘.#f,ei!t 
auf ei® Unvermögen des Programmierers hin. Es ist deshalb wich 
tig, daß man sich als Programmierer möglichst frühzeitig mit den 
Techniken zum Ausfindigmachen und Beheben von Fehlern in Program 
men bekannt macht. Da Programmfehler im Programmierer jargon als 
lUgjL bezeichnet werden (das kommt vom Englischen "bug" für "Wan 
ze"’ ), spricht man in diesem Zusammenhang auch von Debugging . 
Schon diese scherzhafte Ausdrucksweise, bei der die Fehlersuche 
unter "Entwanzen" läuft, sollte Ihnen klarmachen, daß Programm 
fehler keine Katastrophe sind. 

Effiziente Fehlersuche setzt voraus, daß man. sich über die Art 
möglicher Fehler’- .klaren ist . Die einfachste Art von Fehlern 
sind die sog. syntaktischen Fehler. Ein Syntaxfehler unterläuft 
Ihnen immer dann, wenn Sie sich beim Schreiben von FORTH-Program- 
meh, n i ch t an die formalen Regeln (die sog. "Syntax") halten, die 
für korrekte Programme in F ORTH gelten. Wenn wir z.B. im Programm 
(1-6) das Leerzeichen (zwischen dem + und dem * weglassen, dann 
führt dies zu einem Syntaxfehler. Kenn .Sie versuchen, dieses 
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1 Einführung in das Programmieren 


FORTH 


-Zeichnen Sie auch Diagramme wie in den Abbildungen 1-1 oder 1-2, 
•_lt, sich den Zustand des Stacks ir|;, jedem Verarbeitungsschritt zu 
vergegenwärtigen. Auch dadurch werden einige Fehler offenbar. 
Einige FORTH-Systeme verfügen über Befehle, mit denen Sie den 
Stack ausdrucken können, ohne ihn zu verändern. Dies kann beim 
2ebugging eine große seife! da Sie dann öigfsfe' mehr von Hand 

jeweils die Stack-Werte notieren müssen, sondern einfach mit 
diesem Befehl Jtachsehen können, ob sich auch die gewünschten Wer 
te an der richtigen Stelle im Stack befinden. Wie Sie ja bereits 
wissen, entfernt das FORTH-Wort . das oberste Element vom Stack 
und kann deshalb für diesen Zweck nicht eingesetzt werden. Im 
nächsten Kapitel werden übrige ns eine Stethode kennenlernen, 

-die dieses Problem umgeht. 

?. i her der großen Vorteile von FORTH ist es, daß Sie in dieser 
Programmiersprache ein großes Programm schreiben können, das aus 
einer Folge von mehreren kleinen Unterprogrammen besteht . Je 
.•deiner’ ein Programm ist, desto eift-fächer kann man in ihm logi 
sehe Fehler lokalisieren lösi beseitigen. Jedes Unterprogramm wird 
sofort, nachdem es fertig geschrieben ist, erst einmal getestet 
und fehlerfrei gemacht . Dadurch bleibt der Prozeß der Fehlersuche 
stets aijlKr retafcaj#' kleine ■aitdt überschaubare Einheiten beschränkt, 
wie man solche Unterprogramme schreibt, erfahren Sie nächsten’ 

Kapitel . 


1 . 7 Übungsaufgaben 

1-1 Welche Funktion haben die einzelnen Bestandteile eines Rech- 

■j. -2 Was ist der Unterschied zwischen Maschinensprache und As- 
semblersprache? 

1-3 Was ;dexf: -Unterschied zwischen einer Assemblersprache fthsi 

einer höheren Programmiersprache? 

1-4 Was ist ein Compiler? 

■Afeäp Was isfc #in Linker? 

1-6 Was ist ein Interpreter? 
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1 § i n Führung in gas Prograffitoieren ÄÄ FÖRTH** 

1-7 Welche Vor- und Nachteile hat FÖRTH? -'Verwiegen die vbrteijj§t 
die Nachteile? 

1-8 Schreiben Sie ein FORTH-Programm, das Ju'pf Zahlen addiert . 

1-9 Schreiben Sie ein FORTH-Programm, das folgende Berechnung 

(3+4+5) 6 

1-10 Schreiben Sie ein FORTH-? rogramfr., das ffot cer.de Berechnung 
aus filtert 

(5+6+7+2#||l) (8) (9) 

1-11 Schreiben Sie das Programm aus Übung 9 (petzt mit Ihrem 

Editor. Lassen Sie das Programm laufen. 

1 -1 Schreiben Sie das Programm aus Übung ä&Ä? mit jgjSre» 

Editor. Lassen Sie das Programm laufen. 
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2 Grundlegende FORTH-Operationen 


dieses Kapitel erweiti&rl*.' 'teisere Kenntnis der FORTH-Operatioöen, 
rasierend auf dem im letzten Kapital besprochenen Stoff. Wir 
reginnen mit : üiner Erörterung der elementaren arithmetischen 
*Kr>erj|$äj|onen . Dabei beschäftigen wit uns auch noch eintttal Äit dem 
Stack and den Manipulationen, die mit dem Stack möglich sind. Aus 
Kapitel 1 kennen wir bereits das Konzept der FORTH-Wörtet oder 
Kommandos; das vorliegende Kapitel geht auf diesen Begriff!: noch 
•genauer ein und zeigt Ihnen auch, wie Sie eigene FORTH-Wörter 
de ipIftAersix köiirien. Dadurch, können Sie ein größeres Prograttot in 
eine Folge kleinerer Unterprogramme auf teilen. Dies sollte Ihnen 
ermöglichen'! bereits verhältnismäßig komplexe FORTH-Programme zu 
schreiben. Nochelisfftal laufenden Text (nicht in den Beispiel 
trogrammen) schreiben wir FORTH-Wörter oder Kommandos in Fett 
druck. Dadurch können Sie die zur Sprache FORTH gehörigen Aus 
■drücke leicht vom restlichen Text unterscheiden. 


2 . 1 Arithmetische Operationen 


dieser Abschnitt behandelt die wichtigsten arithmetischen Opera 
tionen, nämlich die Addition, Subtraktion, Multiplikation und 
Division. Damit Sie in den für FORTH wichtigen Aspekten auch ganz 
sattelfest werden, wiederholen wir hier auch einige der Informa 
tionen, die bereits im letzten Kapitel gegeben wurden. Wir machen 
Sie auch einer praktischen Sdtefeibweise vertraut^’ Ml der man 

•die Stack-Operationen ausdrücken kann. 


2.1.1 Addition 


Wenden wir uns zuerst der Addition zu. Das FORTH-Wort, das eine 
Addition bewirkt, ist das Pluszeichen ( + ) . Wie Sie bereits aus 
^em letzten Kapitel wissen, sorgt + dafür, daß die zwei obersten 
Zahlen auf dem Stack von diesem entfernt werden (pop) und statt 
dessen ihre Summe .afff den Stack gepusht; Wird. Wir wollen einift&l, 
sehen, wie wir diese Vorgänge im Stack symbolisch darstellen 
können. Angenommen, wir haben drei Zahlen n A , n A und n A , wobei n A 
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2 Grundlegende FORTH-Operationen 


das oberste Stack-Element ist,;. 'W' das nächste usw. 31%'© .'bildliche 
Darstellung dieser Situation sehen Sie in Abbildung 2-1. Zur 
Darstellung dieses Zustands schreiben wir ganz einfach 



ABBILDUNG 2-1 : Ein Stack mit drei Zahlen 


Wie Sie sehen, wird der Inhalt des Stacks charakterisiert durch 
eine Folge von Zahlerl^v^ie durch Leerzeichen getrennt sind. Das 
am weitesten rechts stehende Element dieser Zahlenfolge stellt 
das oberste Stack-Element dar. Mit dieser Notation können wir Jen 
FORTH-Befehl + anschaulich charakterisieren. 


‘ft nJ -> n (2-2) 

i 2 summe 

Dabei soll n ; wlUL> ^ie Summe der Zahlen n A und n A darsteilen. Wir 
bezeichnen einen Ausdruck, wie ihn Beisp’iel 2-2 bringt, als 
Stack-Relation. Die Ausdrücke links vom Pfeil stellen den Zustand 
des Stacks vor Ausführung des FORTH-Befehls dar, während der 
Ausdruck rechts vom Pfeil den Zustand des Stacks nach der Ausfüh 
rung des FORTH-Befehls repräsentiert. Natürlich ist es unnötig, 
den ganzen Stack aufzuschreiben; lediglich die an der Operation 
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beteiligten Werte sind von Interesse. Als Beispiel wollen wir ein 
kleines Programm schreiben, das fünf Zahlen addiert und ihre Sum- 

23 45 6 78 1 + + + + + . (RETURN) (2-3) 

Auf dieses Programm reagiert der Computer Irtit 
#53 ok 


In Abbildung 2-2 sehen Sie den Zustand des Stacks während ver 
schiedendr Schritte bei der Ausführung dieses Programms. Abbil 
düng 2-2a zeigt den Stack, nachdem die Zahlen 23/ ymSgB, 78 und 1;‘ 
in dieser Reihenfolge gepusht worden sind. Nach Ausführung des 
erstell .(linkesten) + werden die obersten zwei Stack-EijSfcräge ent 
Ce stofe* und durch ihre Summe ersetzt. Dies bedeutet, daß zwei Zah 
len durch eine ersetzt werden, weswegen die verbleibenden Stack- 
Daten um eine Postition nach "oben" wandern. Diesen Zustand kön 
nen Sie faS-JAbbildung 2-2b sehen. Ähnlich zeigen die Abbildungen 
2-2c, 2-2d und 2-2e den Stack: nach Aus.Si|hruhg der zweiten, drit 

ten und vierten Addition. Schließlich sorgt der Punktbefehl « 
dafür, daß das Ergebnis (das oberste SLack-F 1 cmc.nt) ausgedruckt 
ffljm. 'vom Stack entfernt TÄrd. Nach Beendigung des Programms ist 
der Stack also wieder 3,ee‘f , so, wie Sie es in Abbildung 2-2f 
sehen können. Natürlich stimmt dies nur, wenn der Stack auch vor 
Ausführung des Programms bereits leer war. 


2.1.2 Subtraktion 


Das FORTH-Wort für die Subtraktion ist das Minuszeichen (-) . Die 
Stack He 1 a:.ion, die die Subtraktion charakterisiert, sieht 
folgendermaßen aus : 
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I 1 

I 31 

I 1 

I 51 

I 1 

I I 
I;— - | 


I 1 1 


12 1 I 

1 — 1 Hi 

i i i i 

BB-— i 

i i i i 

i — i i — i 


I . I X -! 

I . I I . I 

i . i i . i; 

I I I I 


I . I 

I . I 

■f: • . I 

I I 


b) c) 


Abbildung 2—3: Zustand des Stacks bei Ausführung des Programms 

(2-5) . a) Nachdem 5 und 3 -fijif den Stack gepusht wurden; b) nach 
AusfÜJSseSfegt des -; c) nach Ausführung des Punktkommandos . 


Zahl handelt. Das Minuszeichen ist in diesem Fall also kein 
FORTH-Befehl, vielmehr ist es "Teil" der Zahl,. Deshalb führt das 
Programm 


2 ~§f 


(RETURN) 


dazu, daß als Ergebnis 7 ausgegeben wird. Wie Sie sehen können, 
befindet sich zwischen dem Minuszeichen und der Ziffer 5 kein 
Leerzeichen . Bekanntermaßen sind aii# Zahlen, mit denen wir es 
biähe&- '£u tun gehabt haben, ganze Zahlen oder Integers. - |$tegers 
sind, wie Sie bereits wissen, Zahlen ohne Nachkommastellen. Des 
halb dürfen sie auch nicht mit einem Dezimalpunkt geschrieben 
werden. (Alle Computersprachen benutzen zur Darstellung von Nach 
kommastellen die amerikanische Schreibweise; FORTH bildet hier 
keine Ausnahme. In der ame chen. Schreibweise wird das Teza 
malkomma durch einen Dezimalpunkt eia r qeste 1 1t. ) Die Integers, mit 
denen wip*;. i n FORTH arbeiten können, dürfen allerdings nicht be 
liebig groß sein. Sie müssen sich zwischen -32768 spa 32767 ela|: 
schließlich bewegen. Falls Ihr Programm eine Zahl berechnet, die 
slgii. flyfaipte innerhalb dieses Bereichs befiöciet, dann erhalten Sie 
ei n _ Ergebnis!. Natürlich ist es auch möglich,- Zahlen rfqifo'-. 
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größerem Betrag bei Berechnungen herar . zuzier ,-e* ST?.fe' "dies geht, 
erfahren Sie in Kapitel 5. 


2.1.3 Multiplikation 


Multiplikation drückt man in FORTH mit den-*rrt T ajs . Bei Aus 
fÜljg^Bng der Multiplikation werden die zwei leersten Stack-Elemen 
te entfernt und miteinander Jlttltiplizieirt . Saran «*±rd -das Pro 
dukt auf den Stack gepusht. Die Stack-Relatin di'r die Multipli 
kafcitm lautet : 


^ n 2 ^ prod 

Dabei ist h ^ das Produkt der Zahlen n, _r.d-r ..Betrachten wir 
einmal das ¥o?gende FORTH-Programm: 


24 5 3 - * . (RETURN) 


Abbildung 2-4 zeigt Ihnen Nieder den Sta<B . h ; ^*rei den einzelner!; 
Programmschritten. Abbildung 2-4a zeigt der,- St-aek, nachdem 24^ & 

und 3: Ip dieser ReiheÖfplge gepusht wurden. Nach Aus führyng des - 
werdet’-, -.die obersten zwei Elemente gepoppt, vöeei das oberste 
Stack-Element 'xNSS; izweiten subtrahiert w|aip. Die Subtr.ak£:idn hat 
das Ergebnis 2, welches nun als neues oberstes Element auf den 
Stack gepusht wird. Zuvor aber ist die 24 nach eben gewandert und 
ist somit das neue zweite Element auf dem Stack. Diesen Zustand 
zeigt Abbildung 2-4b. Sujhl- . kommt die- Multiplikation an die 

Reihe; wieder werden die beiden obersten: Stack-Elemente entfernt 
und wir erhalten ihr Produkt (48) . Diese Zahl wird auf den Stack 
gepusht, wodurgäi: der Zustand Abbildung 2-4d entsteht . Schließ 
lieh wird der Punktbefehl ausgeführt, das oberste Element gepoppt 
und ausgedruckt. Daraufhin ist der Stack leer (Abbildung 2-4d) . 
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I 1 

148 1 

I — I 

I I 

I 1 

I I 

I 1 

i 1 

1$. . i 

Hl • i 
1 • ^0 
% 

i 


a) b) 


d) 


ABBILDUNG 2-4: Der Stack für das Programm 2-8; a) nachdem 24; 5 

und 3 in dieser Reihenfolge eingegeben wurden; b) nach Aus^ÄähÄ.ig 
des -; c) nach Ausführung' der Multiplikation; d) nach AusfüSttüBIf 
des Punktkommandos . 


2.1.4 Division 


Bis jetzt haben witi ims ,4®? Unseren Et|$#terungen auÄyi-tifcegeirs be 
schränkt, da dies die Darstellung vereinfachte» Wenn wir uns nun 
mit der Division befassen wollen, müssen wir der Arbeit mit Ir.te 
gers jedoch noch einmal unsere SSBfmerksamkeit schenken. Betrach 
Sie einmal die Dfef^gsioiti von 5/2; das Ergebnis ist 2.5. (Be 
achten Sie die amerikanische Darstellung von. Bruchzahlen!) Wie 
Sie sehen, kann die zweier ganzer Zahlen et®, ’^ilEcht ganz 

zahliges Ergebnis haben. Was macht nun FORTH in solch einem Fall? 
Es läßt ganz einfach den Bruchteil des Ergebnisses weg. Weh® wi r 
die obige ?Basvisionsau'fgabe unserem FORTH-System stellen, danil 
erhalten wir als Ergebnis die 2! Der Faktor 0,5 ist deshalb noch 
nicht verlöre®* denn es gibt in FORTH ei$ir 'Möglichkeit, an den 
Divisipflsrest bei ganzzahliger Kflfeisiori heranzukommen, :{pj; -diesem 
Fall wird der Divisionsrest 1. (Es gibt natürlich auch die Mög 
lichkeit, ör FORTH mit Brüehzahle® .arbeiten; dies besprechen 
Wir jedoch erst .-f|& Kapitel 5.) Bei der Arbeit jaiSp. negativen Zah 


41 



2 Grundlegende FORTH-Operationen 


len verhält es sich genauso. So ergibt -14/3 den Quotienten -4 
mit Rest -2/3. Das: iHivißifisnsergebnis ist also -4, die Nachkofflma 
stellen (2/3) werden einfach f^llengelassen . -Jßgese Division hat 
den Rest -2. Die Division ssste 14/ (—3) > die anscheinend gleiöft der 
obigejsr «'föhri dennoch ihyf ein anderes Erbgebnis . Wi)f könnet 

nämlich schreiben 14/ (—3) = -4+(2/-3). In diesem Fall erhalten 
wir als si’dft se r gebn S immer noch -4; jetzt;- isst der Dh>vi's:i.©ns. 

rest jedoch 2. Probieren Sie ein wenig mit Ihrem FORTH-System 
um herauszufinden, wie es sich bei BJsV-iöidÄ mit negativen^ 
Zahlen verhält . 

Wir kennen bisher noch nicht das FORTH-Wort für die- Division; es 
ist der Schrägstrich. Die Stack-Relation für die Division lautet 


(2-9) 


entfeint, wie alle anderen arithmetischen Ope 
bisher kennengelernt haben, die obersten zwei 
Wird durch n A dividiert und der sich dabei.' 
auf den Stack gepusht. Beachten Sie, daß das 
SWgito, Stack-Element durch das .erste Stack-Element dividiert 
wird. Bei Ausführung des FORTH-Wortes / wird kein Divisionsrest 
be f e;cKi$! 0 t . -kommen wir etwas später. .Dividieren wir doch e$Ä 

; 8 ial 5 durch 3 und lassen uns das Ergebnis ausdrucken: 


Auch die Division 
rationen, die wir 
Stack-Elemente. n A 
ergebende Quotient 


5 3/. (RETURN) (2-10) 


Abbildung 2-5 zeigt das zu diesem Programm gehörende Stack-Dia 
grammi;. ■ JDas Programm 2-10 hat uns allerdings keinen Divisionsrest 
geliefert; das liegt dahah, daß das FORTH-Wort / sich '»icht um 
den Divisionsrest kümmert. Dafür gibt es ein spezielles Kommando 
in FORTH, nämlich das Wort MOD; dieses dient zur Berechnung des 
Rests einer? 'Division . Die Stack-RelalU||ö fiS# -dieses Wort ist 


"'f % 




( 2 - 11 ) 


In diesem Fall ist n reS £ der Rest aus der Division von n./jj^ Wie 
Sie wissen, befand sich" Vor Ausführung der Division die Zahl n’2 
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I 3 1 

I— 1 

I 5 1 

I— 1 

I I 

I X 

I X 

I I 

I I 
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I I 



b) c) 


ABBILDUNG 2—5 Stack-Diagramm feflä? Programm (2-10) ; a) nach Einge 
ben von 5 and 3, Jäff dieser Reiheftf o'lge; b) nach Ausführung von /; 
c) nach Ausführung des Punktkommandos. 


an oberster Stelle des Stacks. Das Vorzeichen von rf ^ ijjt^ t ge- 
mäß den Konventionen von FORTH-I®* das gleiche wie das von n A . 
Betrachten wir jetzt einmal das FORTH-Programm, das den Rest der 
Division von 5/3 liefert. 


5 3 MOD . (RETURN) (2-12) 


Ttt Abb. 2 -6 finden Sie das zugehörige Stack-Diagramm. 

Es wäre nun schön, wenn wiäf: in einem Programm beide Größen, deiä; 
Quotienten uad den Res®,» gleichze*Jjfciögp berechnen könnten. P'afüjK> 
gibt es glücklicherweise ein eigenes FORTH-Woriät* nämlich /MOD. 
Beachten Sie, daß in diesem FORTH-Wort zwischen dem SchriSgstrich 
und dem M ke r ;fca Leerzeichen stehen darf. Die Stack-Relatiofli die 
dieses Wort charakterisiert, sieht folgendermaßen aus: 




(2-13) 
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2 Grundlegende FORTH-Operationen 


I 3 X 

I 1 

I 5 j 

I X 

I, ~-i 

1 ..U 

I 

I 

I I 

i s 

1 -Ä 

?■ |f§ 

i 1 


i % 

x-- 



a) b) 


ABBILDUNG 2-6: 5 rack -Di agrarnm für P rcgremm (2-12); a) nach Ei# 

geben von 5 und 2 | in dieser Reiheafiölge; b) nach- Ausführung des 
Wortes MOD; c) nach Ausführung des Punktkommandos. 


Hier dividieren wir n A durch und entfernen diese beiden Zahlen 

vom Stack. Daraufhin werden der DiWiÄiöhsrest n , und Quotient 

rest 

n a^f den Stack gepusht. Wie Sie sehen können, ist vor Aus 
funrung der Operativ# &■* das oberste Stack-Elemeö&. .>)nach Ausfüh- 
rung vor. /MOD befindet sich n . an oberster Stelle des Stacks, 
^ quot 

Hierzu ein Beispiel; 


5 3 /MOD . . (RETURN) (2-14) 


Abbildung 2-7 zeigt das zugehörige Stack-Diagramm. Wie Sie sehen, 
wird nach Ausführung von /MOD der Quotient gedrud&t ■ vom Stack 
entfärbt . Deshalb wandert die 2 ftäsjh oben und wird neues oberstes 
Element. Nach Ausführung des zweiten Punktkommandos wird der 
Di#fjfei;ddsrest gedruckt Uftd vom Stack entfett. 



Grubjilegende FORTH-Ope £ : |stionen 



ABBILDUNG 2-7: Stack-Diagramm, ,£ilS’ das Programm (2-14). a) Nach 
Eingeben von und 3 in dieser Reihenfolge; b) nach Ausführung 
von /MOD; c) nach Ausführung des ersten Punktkommandos; d) nach 
Ausführung des zweiten Punktkommandos. 


Wenn wir also das Programm 2-14 laufen lassen, dann erhalten wir 
billigenden Output 


1 2 ok 


Als letztes Beispiel wollen wir ein Programm schreiben, das den 
Quotienten und Divisionsrest von 301^/(12+3+14)5 berechnet. (Be 
achten Sie, daß die 5 im Nenner den Division steht.) Das zugehö 
rige Programm sieht folgendermaßen aus: 


3016 |y$t 3 12 + + * /MOD . . (RETURN) (2-15) 


Abbildung 2-8 ist das Stack-Diagramm zu diesem Programm. Abbil 
düng 2-8a zeigt den Stack nach Eingabe von 3016, 14, 3 und 12 

in dieser Reihenfolge. In Abbildung 2-8b sehen wir den Stack, 


45 






2 Grundlegende FORTH-Operationen 


2 . 2 Stackmanipulationen 


Dieser Abschnitt widmet sich einigen FORTH-Wörtern, di© es uns 
erlauben, den Stack zu manipulieren. Zuvor wollen wir uns jedoch 
überlegen, wozu diese Stackopo raticr.en gebraucht werden könnten. 
Nehmen Sie einftÄl an, wir wollen das oberste Element des Stacks 
ausgeben, ohne es davon f&ii entfernen. Mit den bisherigen Sprach- 
'irtifLc 1 r. ist uns das sAöftt möglich. Weiterhaifs. können wir mit den 
bisher vorgest©Slten FORTH-Kommandos auch nicht den Ausdruck (12+ 
3+4) *5/6 berechnen, ohne Daten und Operäfcionssymbole jSiSteinändejsS 
zu vermischen. Das ist zwar möglich, aber in diesem Fall können 
wir für diese Operation kein eigenes FORTH-Wort mehr definieren. 

(Mehr darüber im nächsten Abschnitt.) Es sieht zwar so aus, als 
wäre obiger Ausdruck $0 FORTH ganz leicht berechnen; bei ge 

nauerer Betrachtung stellen wir jedoch fest, daß wir die 6 nicht 
als oberstes Element auf den Stack bringen und deshalb die Dlivi 
sion jjfälfcht ‘W'ie vc r.l anqt ausgefülirt werden kann . Da rafft -Äüssen wir. 
wissen, wie man den Stack Sanipulieren kann . 

DUP - Dieses FORTH-Wort dupliziert" das oberste Stack-Element. Es 
wird durch folgendes charakterisiert: 


Ein Anwendungsbeispie^^für dieses Wort sowier das zugehörige Dia 
gramm folgen: 

569 DUP (RETURN) (2-17) 


Angenommen, wi# wollen das oberste Stack-Element drucken, ohne es 
dadurch ;,fip^..yimmer vom Stack -$ji entfernen. Das? folgende kleine 
Programm tut genau dies: 


DUP . (RETURN) 


(2-18) 



2 Grundlegende FORT'I-Cpe raiicr.cn 


I 1 I 1 

J 91 I 9 1 

I 1 I 1 

6 i «Sl&jg 1 

i i i — i 

-X S'I T' 6 i 

i l i 1 

i i i 5 i 

i 1 i 


1 

i l 

i i 

i i 

i i 

i i 

i i 

i i 


b) 


ABBILDUNG 2-9: Stack-Diagramm f!§äev das Programm 2-17; a) dach 

Eingeben von 5, 6 und 9 in dieser Reihenfolge; b) nach Ausführung 

ydi: DUP. 


Wie Sie sehen, sorgt DUP dafür, daß die oberste Zahl dupliziert 
wird. Wenn nun a^.s nächstes das Punktkommando ausgeführt wird, 
dann wird diese Zahl ausgegeben und vom Stack gepoppt. Da siö; 
aber zuvor dupliziert worden war, ist sie noch einmal auf dem 
Stack vorhanden. Somit hat dieses Programm dafür gesorgt, daß das 
oberste Stack-Element ausgedruckt wird, aber auf dem Stack ver 
bleibt . 

DROP - Das FORTH-Wort DROP sorgt dafür, daß das oberste Stack- 
Element gepoppt, aber nicht ausgegeben wird. 2U.4 h anderen Stack- 
Einträge wandern um eine Position nach oben) DROP wird charakte 
irisiert $ii3rch die Stack-Relag^n 


n -> (2-19) 

Abbildung 2-10 zeigt den Stack bei den einzelnen Schritten des 
folgenden Programms : 
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2 Grundlegende FORTH-Operationen 


251 DROP (RETURN) 


(2-20) 



ABBILDUNG 2-10: Stack-Diagramm für Programm 2-20. a) Nach Einge 

ben von 2,5 und 1 in dieser Reihenfolge; b) nach Ausführung von 

DROP . 


Es mag so .>4#issehen, als ob DROP ein völlig überflüssiges Wort 
wäre; werden aber noch seheiij; daß es durchaus seinen Nutzen 

hat. 

Es gibt Programme, die unaufhörlich neue Zahlen auf den Stack 
legen. Dies kanft .folgenschwere Konsequenzen haben. Der Stasjt ist 
nämlich nichts anderes eis Bereich smJfl Arbeitsspeicher Jhres 

Computers. Wenn Sie fortgesetzt neu# Daten auf dem Stack abspei 
ehern, dann wird er einmal voll werden. Der Versuch, in dieser 
S*rtaitio% neue Datenelemente auf den Stack pjj, pushen hat sw» r Fol 
ge, daß dazu Speicherstellen verwendet werden, die gar, nicht für 
den Stack vorgesehen sind! . Man spricht in diesem Fall von einem 
Stack-Überlauf. Es kann dann tüB. passieren, daß Sie die Spei 
cherstellen überschreiben, in denen sich Ihr FORTH-System selbst 
befindet, und so das System "zum Absturz bringen". In diesem Fall 
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2 Grundlegende FORTH-Operationen 


bleibt Ihnen of%. nichts anderes übrig, als den Resetknopf zu 
drücken und Ihr System neu zu starten. Das bedeutet aber, daß 
alle bisher eingegebenen Daten und Programme unwiederbringlich 
verlorengehen. Mit Hilfe von DROP können Sie aber unnütze Ein 
uräge vom Stack entfernen, so seine Größe reduzieren und einen 
SLac'k-Über 1 auf Vermeiden. 

SWAP - Das FORTH-Wort SWAP vertausche die obersten beiden Ein 
träge auf dem Stack. SWAP wird durch folgende Stack-Relati'&fi dha 
rakterisiert . 


( 2 - 21 ) 


Erinnern Sie sich noch an unser Problem, den Ausdruck (i3'*3+14)* 
5/6 zu berechnen? Wir sind jetzt dazu in der Lage, nämlich über 
das folgende Programm: 


6 $/Jp 3 12 + + * SWAP /MOD . . (RETURN) (2-22) 


In Abbildung 2-11 sehen Sie das Stack-Diagramm für dieses Pro 
gramm*. pLe Teilabbildungen 2— lld und 2 -Ile zeigen die Wirkungs 
weise von SWAP. Wie Sie sehen, sorgt es dafür, daß die beiden 
obersten Stack-Elemente vertauscht werden. Beachten Sie, daß sich 
SWAP nur auf die obersten zwei Elemente auf dem Stack auswirkt. 
Enthäfti- Br Stack mehry als zwei Erträge, so bleiben alle außer 
den obersten beiden vor. der Operation SWAP ur.be rührt . 

OVER - Ein weiteres nützliches Wort zur Stack-Manipulation ist 
OVER. Dieses Wort dupliziert das zweite Element auf dem Stack und 
bringt das Duplikat an die oberste Stack-Position. Wir können 
OVER durch folgende Stack-Relation beschreiben: 


r f n2 


(2-23) 


Folgendes Programm ist ein Anwendungsbeispiel für OVER. 

2345 OVER (RETURN) j (2-24) 
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2 Grundlegende FORTH-Operationen 


Das Stack-Diagramm für dieses Programm sehen Sie in Abbildung 2- 
12. Weitere Anwendungsbeispiele für OVER folgen später. 


I 1 i 1 

I 5 I I 4 1 

I 1 i 1 

I 4 I I 5 1 

I 1 i 1 

I 3 I I 4 1 

I 1 i 1 

I 2 I I 3 1 

I 1 i 1 

I II 2 1 

I 1 i 1 

I II I 

I 1 i 1 

I II I 

I II I 

I II I 

I II I 

I II I 

I II I 

a) b) 


ABBILDUNG 2-12: Stack-Diagramm für Programm 2-24. a) Nach Eingabe 

von 2, 3, 4 und 5 in dieser Reihenfolge; b) nach Ausführung von 

OVER. 


PICK - Bei dem FORTH-Wort PICK handelt es sich um eine generali 
sierte Form von OVER. Mittels PICK können Sie jede beliebige Zahl 
auf dem Stack als neues oberstes Stack-Element duplizieren. Bei 
der Ausführung von PICK wird die oberste Zahl auf dem Stack ent 
f ernt . Diese Zahl entscheidet dann, welcher Eintrag auf dem ver 
reibenden Stack dupliziert werden soll. Dies läßt sich durch 
folgende Stack-Relation ausdrücken: 


(2-25) 


53 






S’fr 



2 Grundlegende FORTH-Operationen 


welcher Stack-Eifrfcrag an die oberste Stelle gebracht werden soll. 
ROLL läßt sich also durch folgende Stack-Relation beschreiben: 


(2-29) 


Beti'jKgäuhten wir dazu das folgende Programm : 


41 456 23 lf.|}$ 34 4 ROLL (ENTER) (2-30) 


Abbildung 2 -!($*> '.zeigt das zugehörige Stack-Diagramm. Im (Teildia 
.grärifo: 2-1 ba sehen wir den Stack nach Eingabe vor) Stt,, 456, 23, ' 

56, 34 unct ‘Si ,•§%• • dieser Reihenfolge. Abbildung 2-15b zeigt den 

Stack nach Aus Führung von ROLL. Das oberste Stack-Element, in 
diesem Fall die »tfe wird vom Stack gepoppt und steuert die nach 
folgende Operation von ROLL. Es wird nämlich der vierte Eintrag 
auf dem verbleibenden Stack, die 23, an oberste Position ge 
bracht, und die Elemente unterhalb des vierten föClen durch "Auf 
rücken" die entstandene Lücke wieder auf. Wie Sie sehen können, 
ist 3 ROLL äquivalent zu ROT. 

DEPTH - Manchmal ist es wichtig zu wissen, wie viele Elemente 
sich auf dem Stack befinden. Das FORTH-Kommando DEPTH pusht eine. 
Zahl auf den Stack, die diese .Tnforma 4 .. : or. liefest. Bei der Er 
mittlung der Stack-Tiefe (das englische Wort "depth" bedeutet 
Tiefe) zählt das Ergebnis dieser Operation.; nicht selbst zum 
Stack. Die Stack-Relation sieht folgendermaßen aus: 


Beachten Sie, daß n^ die Stack-Tiefe Ausführung des 

FORTH-Wortes DEPTH ani^iEt A also den Zustand des Stacks, bevoiJ : 
'■'Sfejiefe se -*-b s t ',%'f^den Stack gebracht wurde. Sehen wir tffts einmal 
ein Beispiel für den Einsatz von DEPTH an. 


23 46 57 (RETURN) 

52 437 56 78 (RETURN) 
DEPTH . (RETURN) 


56 


(2-32) 




ABBILDUNG 2-15: Stack-Diagramm für Programm (2-30). a) Nach Ein 

gäbe von 41, 456, 23, 17, 56, 34 und 3| in dieser Reihenfolge; b) 

hach Ausführung von ROT. 


Abbildung 2-16 ist das Äugehörige Stack-Diagramm. Erst einmal 

geben wi£ 23, 46 gi|S 57 in dieser Reihepiffelge ein. daraus ergibt 

sich ein Stack-Zustand wie in Abbildung 2-1 6a. Als nächstes geben 
wir 52, 437, 56 und 78 ein. Die bisher atsj dem Stack befindlichen 

Zahlen werden durch Eingehen dieser' 'öj.ex neuen Werte uitt, insgesamt 
vier Positionen nach unten "gedrückt" . Als nächstes führen wir 
DEPTH aus. Da sich auf dem Stack jetzt insgesamt 7 Zahlen befin 

den, wird auch eine 7 auf den Stack gepusht; dies sehen Sie in 

Abbildung 2-1 6c. Schließlich sorgt das Punktkommando dafür, daß 
die 7 vom Stack gepoppt und auf Ihrem Terminal ausgegeben wird. 
Danach ergibt sich det Stack aus der Abbildung 2-16d. Die Teilab 
bildunged 2-16b und 2-16d sind ganz offensichtlich identisch. Die 
Ausführung von DEPTH und anschließendes Ausdrucken dieses Ergeb 

riisses ändern also nichts am Stack-Zustand. 



2 Grundlegende FORTH-Operationen 


I 1 I 1 

I 78 I 

I 1 I 1 

j 4 6 I 156 1 

I- — 1 I 1 

I 23 I I 43 7 I 

X 1 4 1 

Jb, 5 ■' k 52 I 

1 i i 1- 

I I I' S7 1 

I 1 I x 

I • $ 146 1 

I 1 % 1 

I I I 23 I 

I 1 I 1 

3t I X 1 

I 1 I 1 

i - "31 i i 

I 1 X 1 

I . I X . I 
I . I I 

g vv € i . i 

a) b) 


I 1 I 1 

•#, 'fl 17 8 1 

I 1 I 1 

I 78 I I 56 1 

I — 1 I 1 

156 1 I 43 7 I 

i — l I 

4371 152 1 

I 1 l£ 

X 52 I I: S7 I 

I — 1 I 1 

X 57 I j 46 I 

I 1 I 1 

I 46 I i-k 23 I 

I 1 I 1 

I 23 I ’ X 

i f£. x— - i 

’ iii 

i — i i i 

i . i i . i 

|| : . i I . i 

I . .x I . X 

c) d) 


ABBILDUNG 2-16: Stack-Diagramm f||^ i Programm 2-30. a) nach Eingabe 

von 23, 4 6 und 57 in dieser Reihenfolge; b) nach Eingabe von 52, 

437', 56 und 78 in dieser Reihenfolge; c) nach Ausführung von 

DEPTH; d) nach Aus Führung des Punktkommandos. 


2 . 3 Definieren eigener FORTH-Wörter 


Die bisher besprochenen FORTH-Wörter werden beim Kauf Ihres Sy 
stems mit ausgeliefert , sind also schon herstellerseitig einge 
baut. Einer der größten Vorteile von FORTH besteht aber darin, 
daß Sie Ihre ei genen Wörter schreiben und diese in den FORTH- 
Wörterschatz mit aufnehmen können. Dieser Abschnitt widmet sich 
diese# benutzerdefinierten FORTH-Wörtern . Sie versetzen: : yrvs i#: 

die Lage, Jfi$;angreiche '&$$& komplizierte Programme zu schreiben. 
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2 grundlegende FORTH-Operationen 


ö ( ZWEITE, DRITTE, VIERTE und POLYNOM ) 

1 : ZWEITE DÖ^' * ; 

2 : DRITTE DUR ZWEITE * ; 

3 : VIERTE DUP DRITTE * ; 

4 : 

: POLYNOM DUP DUP DUP 

6 : VIERTE 3 * 

•f f SWAP DRITTE 2 * + 

8 : SWAP ZWElSg^' 5 * + 

9 : SWAP 2 * + 

1 4 + . 

1 1 
1 2 
% 3 
14 
1 5 


ABBILDUNG 2-17 : Ein FORTH-Programm zur Berechnung des Polynoms 

(2-37) verschiedene Werte fp&sst x; das Programm enthält aucJJ.- 

die Definitionen von ZWEITE, DRITTE und VIERTE. 


Gehen wij Äun e :i nma die Einzelheiten des Programms der Abbildung 
2-fif.' durch. Die Zeile 0 ist ein sogenannter Kommentar . Kommentare 
werden vom FORTH-System ignoriert. Ihr einziger Zweck besteht 
darin, den Programmierer oder andere Leser des Programms mit In 
forma-Eignert ,iu versorgen. Kommentare adlid besonders dann für Sie 
sehr- hilfreich, wenn Sie sich längere Zeit nach Definition eines 
Programms wieder mit diesem auseinandersetzen müssen. Kommentare 
können an beliebiger Stelle in einem FORTH-Wort oder -Programm 
auftauchen. Zurs Schreiben eines Kommentars tippen Sie lediglich 
eine Öffnende K 1 amir.or gefolgt von einem Leerzeichen. Der Text bis 
zur nächsten schließenden Klammer wird von FORTJJ ignoriert, wenn 
Sie das Programm compilieren lassen. 

Betrachten wir nun Zeile 1. Hier definieren wir ein neues FORTH- 
Wort mit dem Namen ZWEITE, welches das oberste Stack-Element gua- 
driert, oder, wie man auch sagt, seine "zweite Potenz" liefert. 

(Die zweite Potenz bzw. das Quadrat einer Zahl x schreibt WäB als 
x , was nichts anderes als x mit sich selbst multipliziert oder x 
mal x ist) . ZWEITE duplizieüft. als erstes die Zahl, die sich 
zuoberst auf dem Stack befindet.' Dann werden die beiden obersten 
Stack-Einträge (also zweimal dieselbe Zahl) vom Stack gepoppt und 
miteinander multipliziert. Wir erhalten somit die gewünschte 

Quadratzahl, die jetzt auf den Stack gepusht wird. 
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2 Grundlegende FORTH-Oper&fJionen 


Nun zu Ze i Je 2 in Abbildung 2-17. Hier sehen wir die Definition 
des Wortes DRITTE, welches dafi^'- sorgt, daß das oberste Stack - 
Element entfernt und durch seine d piche Potenz ersetzt. wird. (Die 
dritte Potenz einer Zahl ist diese dreimal mit sich selbst multi 
pliziert, also x mal x mal x)> Im ersten Schritt wird das oberste 
Statk-Elemeht dupliziert . Dann rufen wir »®f selbstdefiniertes 
ZWEITE auf. Infolgedessen haben wir als oberstes Stack-Element 
das Quadrat der Ausgangszahl. Beachten sie, daß ZWEITE den rest 
liehen Stack unverändert läßt. Deshalb ist das zweite Stack-Ele 
ment immer noch die Ausgangszahl. Wenn wir nun den * ausführen, 
dann werden diese beiden Zahlen vom Stack gepoppt üwäi. <iSta , ,inandeir 
muÄSpj'litiert . Als Ergebnis erhalten w£® die Potenz degr 

Ausgangszahl, die jetzt auf den Stack gepusht wird. 

Zeile 3 der Abbildung 2-17 definiert .tö bereits bekannter Manier 
das Wort VIERTE, welches das oberste Stack-Element entfernt und 
durch seine vierte Potenz ersetzt. (Die vierte Potenz einer Zahl 
x ist x viermal mit sich selbst multipliziert, also x mal x mal x 
mal x) . Die Definition von VIERTE lehnt sich sehr stark an die 
von DRITTE an, außer, daß VIERTE den gleichen Gebrauch von DRITTE 
macht, wie wir ihn von DRITTE und ZWEITE bereits kennen. 

Wie Sie sehen können, haben wir Zeile 4 JiOier gelassen,. .SgÄ FORTH- 
Compiler machen Leerzeilen nichts aus. Leerzeilen dienen ebenso 
wie oder mehrere Leerzeichen 1® FORTH als Trenner zwischen 

den einzelnen Befehlen. Zusätzliche Leerzeichen und Leerzeilen 
erfüllen nur den Zweck, eine Delfiatitton für den menschlichen 
Leser klarer und deutlicher- latl gesta iten . Aus der Sicht von FORTH 
hätten wir genausogut die Def rlpLhtönen JSfe ZWEITE, DRITTE und 
VIERTE äflißf eijäe. einzige Zeile quetschen Jfcofinen, so lange wir nur 
zwischen den einzelnen Wörtern immer mindestens ein Leerzeichen 
frei lassen. ®ie Lesbarkeit eines Programms-. kümmert den FORTH- 
Compiler- ;(li.dht; er behändem" '. eine Folge •■jfpxi -Zeilen • vSS» einem ode# 
mehreren Blöcken als zusammenhängenden Text . Deshalb sind ztiS-ätz 
liehe Leerzeichen unh Leerzeilen ajicht unbedingt erforderlich. 
Sie sollten sie jedoch freizügig einstreuen, um die Lesbarkeit 
Ihres Programms zu steigern. Gut lesbare Programme lassen sich 
viel leichter fehlerfrei machen. Ein sauberer Progräjiftierstii. 
hilft außerdem, Fehler zu vermeiden. 

Zeile S der Abbildung 2-17 definiert nun das Kommando POLYNOM, 
mit dem man Ausdrücke der Form (2-37) berechnen kann. Setzen 
für x den Wert 5 e : n, so geben sieäcff: e.: n : . 
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2 Grundlegende FORTH-Operationen 


5 POLYNOM 


Nun zu den Details von POLYNOM. Zuerst erzeugen wir drei Duplika 
te der obersten Stack-Zahl . Somit nimmt die fjragliche Zahl die 
erste# (Vier Positionen auf dem Stack ein. Wgjjg jrufen wir VIERTE, 
woxatej^fisxi 'das oberste Stack-Element entfernt Jinpä durch seine 
vierte Potenz ersetzt WirÄ. Daraufhin Wird eine 3 auf den Stack 
gepusht .*.j$|Le obersten zwei Zahlen werden nun gepoppt, miteinander 
multipliziert und ihr Produkt auf den Stack gepusht . A Demnach ist 
das neue oberste Stack-Element nichts anderes als 3x . In Zeile 7 
rufen wir als nächstes das Kommando SWAP. Es sorgt dafür, daß die 
Ausgangszahl (5) zuoberst auf den Stack gebracht w A rd. Dann folgt 
das Kommando DRITTE, das gemäß seiner Definition x auf dem Stack 
ablegt. Wir pushen nu A die 2 auf den Stack und rufen das Wort 
Jetzt befindet sich 2x zuoberst f |Ö|f dem Stack, gefolgt VC® 3x . 
Wenn .'jsijS: Cihtch + addiert; wird, dann verschwinden 4i A se beiden 
Zahlen vom Stack, Öhdl werden durch ihre Summe (3x + 2x ) ersetzt. 

Machen Sie sieh jR- 1.9 daß jetzt die zweite Zahl auf dem Stack 

wieder die Ausgangszahl ist. Zeile 8 des Programms enthält wieder 

einen SWAP-Befehl, der erneut die Ausgangszahl nach oben toiiitgt,. 
Nach Ausführung von ZWEITE wird diese Zahl auf dem Stack durch 
•ihr Quadrat ersetzt. Wxi legen jetzt die 5 auf A en .Stack, und 
duplizieren erneut. DarauÄin befindet sich 5x an obersten 
Stack— Position . Führen wir nifil- + aus, dann werden die beide^' 
obersten Zahlen vom Stack entfernt und d A rch i A re Supjme ersetzt, 
welche jetzt den Wert des Ausdrucks 3x + 2x + öx*" darstellt. 
Wieder bringt ein SWAP aus Zeile 9 die Originalzahl zuoberst auf 
den Stack. Sie wird dann mit 2 multipliziert und das Ergebnis auf 
die zweite Zahl im Stack addiert. DaSgiacf addieren wir dann noch 

in Zeile 10 die Zahl 4 und erhalten so das Endergebnis, welches 
wir noch ausgeben lassen. 

Nach Laden des Blockes in Abbildung 2-17 können wir nicht nur das 
neue Wort POLYNOM überall verwenden, ebenso sind die Befehle 
ZWEITE, DRITTE und VIERTE jetzt verfügbar. Wenn wir z.B. eingeben; 

5 DRITTE . (RETURN) 
dann sehen ur.so rem Terminal 

* '^‘-•85 Qk 
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2 Grundlegende FORTH-Operationen 


Wenn also einmal der Block aus der Abbildung 2-17 geladen ist, 
dann könnet!' alle dar$& enthaltene®:' jjieu definierten FORTH-Wörter 
genauso benutzt werden, als wären sie eingebaute Wörter. 


2.4 Mehr über FORTH-Wörter 


Im letzten Absatz haben wir die Grundtechniken eingeführt, über 
die man zum Schreiben eigener FORTH-Wörter verfügen muß. Dieser 
Abschnitt beschäftigt sich nun mit einigen weiteren Details, die 
die Deflation von FORTH-Wörtern bet reffen . Jedes verwendbare 
FORTH-Wort (sei es nur. in das System eingebaut' oder jjpghiräglich 
definiert bzw. geladen worden) ist im Hauptspeicher Ihres Compu 
fjjlrs abgelegt . Di#. .Befeh]jp^. die das einzeihe Wort ausmachen, 
werden dabei hintereinander in -Spf einander! dlgenden Spo : eher 
adressen gespeichert. Der Speicherplatzbedarf eines FORTH-Wortes 
hängt natürlich von seiner Komplexität ab. Jedesmal, wenn Sie ein 
FORTH-Wort aufrufen, wird der Kontrollfluß Ihres Systems beein 
flußt von den Instruktionen, die für das betreffende Wort im 
Computerspeicher enthalten sind. Der Speicherbereich des FORTH- 
Systems, in dem sich diese Instruktionen befinden, heißt Wörter 
buch. Jeder Ei ntrag^ im Wörterbuch 'setzt SiiöS aus mehreren Kompo 
r.er.Len zusammen. Zusatz Lieh zu. 'den Befehlen, die die De f i niji.i on 
des einzelnen Wortes ausmachen, enthält: ein Eintrag auch noch 

eine Repräsentation des Namens, den der Benutzer diesem Wort 
gegeben hat . Der Name 1 dieaj§v ; £iSPd IdentffJpJtatEäUSjB des Wortes . Außer 
dem enthält der Wörterbucheintrag die Anfangsadresse des Wortes, 
das unmittelbar vor dem aktuellen Wort compiliert wurde. FORTH 
merkt siiffh also immer' -'-fish -''die Adresse des Wörterbucheii^irags, deÄ 1 
vor der letzten Neudefinition compiliert wurde. Es hat den An 
schein, als könnte das System mit dieser "fi^thode immer nur den 
letzten Eintrag im Wörterbuch finden. Wir haben aber gesagt, daß 
Jeder Wörterbucheintrag zusätzlich noch die Adresse des zuvor 
definierten Wortes enthält. Wenn Sie ein FORTH-Wort aufrufen, 
dann, überprüft das System den 'Namenteil des leisten Wöäftrgrbuoh 
glfeClags, um sehen, ob dieser Eintrag das gewünschte Wort ent 
hält, Falls ja, dann wird die Programmsteuerung an die Instruk 
tionen übergeben, die die Definition des Wortes ausmachen. Ist 
das gewünschte Wort aber hicäaft; das letzt#; 'fit Wörtelibütth» danrt' 
wird der- vorletzte Wörterbuch©ft»trag Untersucht. Das System Kpfm. 
diesen Eintrag finden, weil es sich ja beim letzten Wörterbuch 
eintrag einen Verweis auf den vorletzten Eintrag gemerkt hat. 
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ze r buche int rag den Namen POLYNOM, der vorletzte Eintrag heißt 
VIERTE, der drittletzte DRITTE usw. Wenn FORTH eine Aufgabe z4 
erledi gor. hat, dann trifft es sowohl auf Daten als auch auf Wör 
ter. Wir können uns jetzt auch denken, woran FORTH den Unter 
schied zwischen Baten und Befehlen (Wörtern) erkennen kann : Bäten 
sind nicht im Wörterbuch eingetragen! 

Wehh Sie von FORTH die Deiinxfeion eines neuen Wortes verlangen, 
dann legt #Jbcb das System einen neuen Wö rüerbuche'£fjfc-rag an . Das 
Wörterbuch von FORTH warnt Sie* wenn Sie einen Namen doppelt 
vergeben wollen, -läßt aber diese Möglichkeit durchaus zu. Wenn 
Sie vorsichtig dalait umgehen, können doppelte Wörterbucheinträge 
durchaus verarbeitet werden. Sie können aber auch Probleme mit 
sich bringen. Wxf wollen den doppelten Eihtiägen kurz zuwen 

•den. Nehmen Sie an, daß fjjjijj’ dem Block ,SjÜs Abbildung 2-17 

arbeiten, der BLOCK 115 sein soll. Weiterhin wollen wir annehmen, 
daß unsere Erstfassung des Programms Fehler enthält. Deshalb 
edieren wir den Block und laden ihn erneut. Jedesmal, wenn wir 
dies tun, werden aber auch neue Def initsiöhen für die Wörteü* 
ZWEITE, DRITTE, VIERTE ut|Ä POLYNOM Wörterbuch abgelegt. Norma 
lerweise kümmert uns das nicht, denn FORTH findet stets zuerst 
die letzte Definition, im Wörterbuch, d.h., die neueste und somit 
fehlerfreieste. Wir können also die Warnungen über Wortduplikate, 
die uns FORTH bringt, außer acht lassen und fflfisfc der Programmier 
arbeit weitermachen. Es könnte jedoch ein anderes Problem auf 
tauchen. Wenn unser Programm in Block 1. 15 sehr viele Fehler 
enthält, kann es nötig so i n, diesen Block verhältnismäßig oft zu 
bearbeiten oder neu zu laden. Bas kann. da$$ führen, daß das 
Wörterbuch, welches ja nicht nur die FORTH-Wörter , sondern auch 
ihre Definitionen enthält, unnötig aufgebläht und zu groß wird, 
der für das Wörterbuch vorgesehene Speicherplatz reicht dann 
«icht mehr äug, trfjd es werden Teile des FORTH-Systems überschrie- 
:en, was dazu führfe daß sich der Rechner "aufhingt". 

•leider schleichen sich beim Programmieren fast immer Fehler ein, 
und die Situation stellt sich ein, daß ein Teil der im Arbeits 
Speicher des Rechners enthaltenen Information nutzlos Sät. Es 
wäre nun gut, "Schrott" aus dem Wörterbuch entfernen und somit 
Platz für neue, sinnvolle Einträge gewinnen zu können. Dafür gibt 
es ein spezielles FORTH-Wort, nämlich FORGET. Dies leitet sich 
.-.er vom Englischen "to forget" = vergessen. Nehmen wir einmal an, 
faß der BLOCK .jpts (vgl. Abbildung 2-17) geladen wurde. Wenn wir 

FORGET POLYNOM (2-40) 
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eingeben, dann wird das Wort POLYNOM aus dem Wörterbuch entfernt, 
und der Platz, den es und seine Definition im Arbeitsspeicher 
eingenommen haben, wird freigegeben. 

Das Wort FORGET kaöff-'. sogar noch mehr: Wenn wir FÖRTH dazu veran 

lassen, ein Wort mittels FORGET zu vergessen, dann werden auch 
all die Wörter mit vergessen, die nach dem betreffenden Wort 
de||fe^gjsfe -lurden . Wenn; also z.B. den Block aus Abbildung 2-17 

laden und anschließend eingebert 


FORGET DRITTE 


dann werden gleichzeitig die Wörter DRITTE, VIERTE und POLYNOM 
aus dem Wörterbuch entfernt. Wenn Sie also einen Block für die- 
Fehlersuche ladei^; . • dann ist es am bestell, wenn Sie bei. jedem er 
neuten Ladevorgang dieses Blockes erst einmal die darin enthalte 
nen Wörter vergessen lassen. Dies kann man ganz einfach dadurch 
erreiche^’#. daß man in den Block zwei weitere Einträge mit auf 
nimmt. Betrachten Sie dazu einmal die Abbildung 2-19, welche eine 
leichte Modifikation der Abbildung 2-17 darstellt. 


$ '( ZWEITE,- DRITTE, VIERTE Und POLYNOM ) FORGET F00 : F00 ; 

1 ZWEITE DUP * ; 

2 > DRITTE DBP ZWEITE * ; 

3 : VIERTE DUP DRITTE * ; 


1 0: 
11 
12 
1 3 
14 

.i b 


POLYNOM 


DUP DUP DUP 
VIERTE 3 * 

SWAP B'STTTE 2 * + 
SWAP ZWEITE 5 * + 
SWAP 2 * + 


ABBILDUNG 2-19: Erweiterte Fassung der Abbildung 2-17, die dafür 

sorgt, daß zuvor geladene Versionen des Blockes automatisch ver 
gessen werden;; nütz.l Ich "für ?rog rammen;, w ick 1 unq . 
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Die ersten beiden Instruktionen im Block lauten nun folgender 


FORGET F00 (2-42a) 

: F00 ; (2-42b) 


Die Anweisung (2-42b) definiert ein Wort mit dem Namen F00, das 
aber nichts -itat . Dennoch macht FORTH pflichtschuldigst eineii; 
Wörterbucheintrag für dieses seltsame Wort F00 und merkt sich ein 
saar sehr einfache Instruktionen im Zusammenhang mit F00, die 
dafür sorgen, daß F00 beim Aufruf keinerlei Wirkung zeigt* Die 
erste Instruktion, im Block ist aber (2-42a) ; wenn Dag? fiisijljB; den 
Block aüs Abbildung 2-19 erneut laden, er sich also bereits ein 
mal i% . Wörterbuch befindet, dann sorgt dieses FORGET F00 da f'.ü'f, 
•daß die letzte Kopie des Blockes aus dem Wörterbuch gelöscht 
wird. B^ftä ersten Ladeversuch des Blockes erhalten Sie jedoch 
eine Fehlermeldung, da sich zu diesem Zeitpunkt noch kein Wort 
*it dem Namen F00 im Wörterbuch befindet. Sie müssen deshalb für 
das erstmalige Laden des Blockes folgendes eingeben: 


: F00 ; (RETURN) 


(2-43) 


Laden Sie jetzt den Block. F00 wird sofort vergessen und an sei 
ner Stelle ein neues Wort F00 ins Wörterbuch eingetragen. Beim 
nächsten Laden des' .Rockes sorgt die Instruktion FORGET F00 da 
für, daß die alten Einträge in diesem Block aus dem Wörterbuch 
gelöscht werden. Auf diese Art umgehen wir das Problem, daß bei 

;edem Neubearbeiten und Neuladen eines Blockes das Wörterbuch mit 
unnötigem Ballast aufgebläht wird und unser Arbeitsspeicherbe 
reich eingeengt wird. Denken Sie daran, daß Sie (2-43) nur einmal 
eingeben müssen, und zwar, wenn Sie diesen Block das erstemal 
laden. Wenn das Programm fehlerfrei ist, dann sollten Sie den 
g-lock edieren und die Einträge FORGET F00 UND.: F00 ; aus dem 

^lock entfernen. 

4® gibt noch andere Ifljfhatzgebiete für das Wort FORGET. Bei der 

Arbeit mit kleinen Computern wird ein Programm, das gerade in 
Entwicklung ist, manchmal so groß, daß es nicht mehr in den Ar 

beitsspelöher paßt und deshalb nicht mehr ausgeführt werden kann. 
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Bei den meisten Programmiersprachen müssen Sie '■§0 diesen Fällen 
Ihr Programm verkürzen oder die Datenmenge^“. -einschränken., mit 
denen, es arbeiten kann. FORTS, bietet hier eine andere Alternäili-,. 
ve . Sie können Ihr Programm so schreiben, daß bestimmte Wörter 
nur am Anfang des Programms benötitfir werden, am Ende 
mehr Vorkommen. In, diesem Fall brauchen Sie am Anfang des Pro 
gramms nur diejenigen Wörter zu laden, die an dieser SteMö 
benötigt werden . Der Speicherplatzbedarf wird so reduziert. Die 
zu Beginn des Programmlaufs geladenen Wörter werden nur zur Be 
rechnung der ersten Zwischenergebnisse: herangezogen . Ist dies 
schehen, so können Sie mittels FORGET -JÄhÄige Wörter aus dem 
Wörterbuch und somit dem Arbeitsspeicher des Computers löschen, 
wodurch ; nieder mehr Plat# im Computer zur Verfügung steht. Da 
katto der Rest des Programms geladen werden und seine Ar 
beit beginnen. 

All dies können beguemerweise Instruktionen übernehmen, die in 
Ihrem FORTH-Programm selbst eingestreut sind, so daß sich der 
Benutzer, der Ihr Programm anwendet, um diese Details gar nicht 
zu kümmern braucht^ >'D io Vorgehensweise ist dabei etwa folgender 
maßen: Sie laden einen bestimmten Block, der die für die ersten 

Berechnungen benötigten Wörter enthält. Die: : letzten beiden Befeh 
le in diesem Block sind dann ein FORGET sowie ein LOAD, das den 
nächsten Block in den, Arbeitsspeicher!: holt. Die Kombination aus 
diesen beiden Befehlen sorgt daffit®^ daß die alten Wörter gelöscht 
werden und der neue Block geladen wird. In gewisser Weise benutzt 
diese Technik den Disketten- oder Kassettenspeicher als eine 
Erweiterung des Speichers . 

Die Methode, in einem Programm immer nur die gerade benötigten 
Te i le in den Hauptspeicher "hereinzuladen*, trägt den Namen Over 
lay-Technik . Dieser Fachausdruck leitet sich vom Englischen 
"Overlay* = Überlagern her. Bei Anwendung der Overlay— Technik 
stellen Disketten- oder Kassettenspeicher einen sogenannten vir 
tuellen Speicher dar. Diese Speichermedien übernehmen nämlich bei 
der ’Overlay-Tecfinik die Rolle einer gedachten Hauptspeichererwei 
terung. Overlay-Technik ist gerade bei kleineren Mikrocomputern 
seht, ahützlich.,. ä,n anderen Programm:: erspr achen aber schwer zu 
handhaben. Bei einer herkömmlichen Programmiersprache müßten Sie 
tatsächlich eine Folge von kleineren, unabhängigen Programmen 
schreiben, diese einzeln hintereinander laufen lassen und über 
Dateien die Zwischendaten von einem zum anderen Programm überge 
ben. Das Aufrufen der einzelnen Dateien und das Übergeben der 
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Zwischendaten ist in diese® Fall Sache des Benutzers, der also 
rr.it zusätzlichem Arbeitsaufwand belastet wird. 

Kehren wir noch einmal zu dem Problem der doppelten Namen im 
PORTH-Wörterbuch zufiiek. Betrachten Sie einmal das FORTH- 
gramm in Abbildung 2-20. Hier definieren wir zwei Wörter mit dem 
Namen TEST1 . 


0 ( Ein Beispiel für Namensduplikate ) 

1 : TEST1 2 . ; 

f; : RUNNER1 TEST1 3 . TEST1 ; 

3 : TEST1 4 . ; 

'i§ : RUNNER2 TEST1 TEST1 RUNNER1 TEST1 TEST1 ; 

5 

6 

7 

8 

9 

1.0 


ABBILDUNG 2-20: Ein Beispiel für doppelte Namen 


• * AT-sr. tSsKiÄr atff »ganz einfache FORTH-Wörter beschränkt, 

li-.i ‘ zef imient -das Wert 7EST1, welches : cd i q 1 Ich die Zahl 2 
r_äir. k ':. Irr -Ze-ile 2 de ! n.fe ren wir RUNNER1, welches das Wort 
" i-ir.:':, dann eine- 3 ausgibt und erneut TEST1 aufruft. 

; e . . t I ezrrtl.- 1 die Eefiriticr- eines weiteren Wortes, das eben 
: . . ; s'ijB» TEST1 trägst und» die Zahl 4 au s gibt . Wir können 

t_f: ir< etr.tr •• elt-r.es TTST1 gerade ausgeführt wlrd/Stfähdem 

■5ÄCTÄ«tn«i,r ?c: eifce 2 t>der eine 4 gedruckt wird. Schließlich de 
- s- . _r :ner*»in, Zeile 4 das Wert RUNNER2, das zweimal TEST1 
, - -- - fas -aar* JluNITSERI er« na 11s «und -«ehließlich noch 

— --'r TV: 1 ruft, b-^a ladendes 5lcc<esr in Abbildung -2-20 Wird 
i erstes i .-t * * jS.äCrc ci€ l€i.r 2 usv* Wer.r. wir 
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dann erhalten wir als Ergebnis eiÜÄ : ' 4. Das am weitesten hinten 
stehende Wort im FORTH-Wörterbuch mit dem Namen TEST1 ist näm.i i ch 
unsere Definition aus Zeile 3 der Abbildung 2-20. Da das Wörter 
buch von hinten durchsucht wird, findet FORTH diese Definition 
als erste und wendet sie an. Jetzt wollet! wir einmal sehcäV -was 
bei Ausführung voo RUNNER2 passgi^'tt . Wir erhalten folgendes Et 
gebnis : 


4 J 3 2 4 4 (2-45) 


Wird RUNNER1 als Teil von RUNNER2 aufgerufen, dann ruft dieses 
Wort seinerseits TEST1 . In diesem Fall wird aber das erste TEST1 
ausgeführt. Diese Version bringt eine M auf den Bildschirm. Wäh 
rend der Aus Führung von RUNNER1 beginnt also jede Wörterbuchsuche 
S&gnj dem ersten Wort, das unmittelbar vor der Compilierung 

RUNNER1 definiert wurde. Das ist der Grund, weswegen jetzt das 
erste TEST1 ‘tut Ausführung gelangt. Wenn andererseits RUNNER2 
ausgeführt wird, dann:-’ .-ESÄß dieses Wort nach Ausführung von RUN- 
NERI seinerseits wieder TEST1 . Diesmal wird, jedoch zweimal die -.«§• 
ausgegeben. Nachdem nämlich die RUNNER1 abgearbeitet ist, beginnt 
die Wörterbueh;swche wieder bei dem letzten Wort, das unmittelbar 

vor RUNNER2 definiert wurde, da FORTH ja gerade mitten in der 
Compilierung und Ausführung von RUNNER2 steckt. Wenn wir jetzt 
eingeben: FORGET TEST1 , dann* : ist dies genauso, als würde der 

Block nur die Zeilen 0 bis 2 der Abbildung 2-20 enthalten. In 
diesem Fall würde bei AEjfi$äT des Wortes TEST1 eine 2 ausgegeben 
werden . 

Noch eine letzte Warnung: Das Wort FORGET läßt sich auf 

Wörterbucheintrag anwenden. Sie können also sogar den Befehl ge 

ben: FORGET +! Seien S Le aber vorsichtig mit diesen Dingen, da 

hierbei FORTH einen Großteil- seiljsir wichtigsten Rechenfähigkeiten 
verliere^ :$iffi>d deshalb arbeitsunfähig werden kann. hilft 

Ihnen nur noch ein Systemstart weiter. 
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2 . 5 Weitere Kommandos zur Stack-Manipulation 


Dieser Abschnitt fühlst? einige weitere Kommandos ein/-.- jMst- denen 
de'fe Stack manipuliert werdet! kann und die gelegentl-jiöji sehr 
nütz liefi sind. Die Kommandos sind den. ipti Kapitel 2-2 gAngef ährten 
sehr ähnlich, operieren aber mit zwei Stack-Positionen gleichzei 
tig. Im Kapitel 2-1 haben wir erfahren, daß in FORTH verarbeit 
bare Zahlen zwischen -32768 und 32767 .'JQjegen müssen. In der Regel 
werden Integers - so nennt man Zahlen aus diesem Bereich — SB'. 
zwei aufeinanderfolgenden Speicherwörtern des Computers abgelegt, 
von denen ein jedes 8 Bit umfaßt. Dabei gehen wir; davon -aai®y , daß 
Ihr Computer Speicherwörter von 8 Bit Länge verwendet. In diesem 
Fall arbeitet FORTH automatisch mit zwei Speicherwörtern, die al 
so, was den Programmierer beträjfft, .in FORTH als eine Einheit 
erscheinen. Wenn wir bisher über eine Integer auf dem Stack ge 
sprechen haben, dann war dieser Stack-Eintrag eine Elfttioit, ob 
wohl er maschinenintern aus zwei 8-Bit-Bytes (oder Maschinenwor 
ton) zusammengesetzt ist. Manchmal ist es nötig, mit Zahlen za 
arbeiten, deren Betrag die Schranke 32767 überschreitet. FORTH 
stellt üblicherweise Möglichkeiten (für die Arbeit; mit wesehtligh 
•größeren Xntege rs zur Verfügung. Solche Zahlen trage 11 den Namen 
'' doppelt genaue Integer" . Dieser Zahlentyp beansprucht; jedoch 
mehr flatz als die normalen, einfach genauen Stack-Einträge. Si® 
werden deshalb auf zwei hintereinander .folgenden Stack-Positionen 
gespeichert. Wenn wir den Stack manipulieren wollen, darauf aber 
doppelt genaue Zahlen abgelegt sind, dann brauchen wir speziell® 
Befehle, die Paare von Stack-PosI|§3ionen manipulieren. Um etwa 
eine doppelt genaue Integer mittels DROP vom Stack zu entfernen, 
müßten wir das Wort DROP zweimal ausfjjägren. 

Das Rechnen mit doppelt genauem Integers erläutern wir noch ein 
mal ausführlich iii Kapitel 5. Hier wollen wif? uns nur mit den Be 
•fehlen beschäftigen, die zssf Manipulation eines Stacks mit dop 
pelt genauen Einträgen benötigt werden. Diese Wörter können wir 
aber nicht nur bei doppelt, genauen Integers, sondern auch bei 
einfach genauen Einträgen benutzen. Sie können nämligh genausogut 
Paare von, einfach genauen Zahlen manipulieren, wie man sie £!!#•. 
Bearbeitung eifttgs doppelt genauen EJiÖtrags benutzen kann. In def- 
Regel gehören die hier besprochenen Befehle nissht zu dem FORTH- 
Kern, der automatisch geladen wird; es handelt sich vielmehr um 
Erweiterungswörter, die Sie veritütlich selbst $gjk den Speicher 
bringen müssen. 
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2DUP - Dieses Wort dupliziert die obersten beiden Positionen des 
Stacks, also entweder die obersten beiden Integers oder die ober 
ste doppelt genaue Zahl. 2DUP charakterisiert durch die 

Stack-RelatCdf! 


2 n, i n 2 


Wie Sie bereits wissen, steht in diesen Stack-Relationen "n" für 
eine einfach genaue ganze Zahl (Integer) . Wir wollen in Zukunft 
doppei’® genaue Zahlen. . dem Buchstaben "d" abkürzen und können 
darin die Stack-RelatibR das Wort 2DUP folgendermaßen 


d -> d d (2-47) 


Ein genauer Vergleich von (2-47) •jma't (2-16) zeigt, daß diese 
Stack-Relationen denselben Sachverhalt. zum Ausdruck bringen, 
außer, daß hier zwei Integers "n" immer durch eine doppelt genaue 
Zahl "d" ersetzt wurden. Wenn w||fK. wollen, können wir) Tgjld- natür 
lieh eine eigene Def JjSjitiöJi für 2DUP schreiben; diese sieht so 


: 2DUP DUP 3 PICK SWAP ; (2-48) 


Abbildung 2-21 stellt ein Stack-Diagramm für folgendes Programm 


■i: ?. 2 DUP 


(2-49) 


2DROP - Das FORTH-WotJs .2DR0P entfernt die beiden obersten tiste; 
gers (bzw. die oberste doppelt genaue Zahl) vd® Stack. Seine 
Stack-Relation ist 


(2-50) 
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bzw. mit doppelt genauen Zahlerf 


d 


(2-51) 


I 1 x 1) 

I 2 I I 2 I 

1 1 T— 

|< i 2 i 

I 1 I 1 

'S < I I 4 I 

I 1 1 1 

i ::r ’ x x 

i i i i 

■ff iii 

i i 

iii If; 

i i i i 

I I S %' • $ 


i l 

I 3 I I 4 I 

I- i i- 1 

I 2 I I 2 I 

I 1 I 1 

i 2 i -.1 Z:%' 

i 1 .ij 1 

I 4 I I 4 I 

1 

$f. III 
I 1 I— -1 

I I I I 

I I I 

I VC-, I 


I 1 

I 2 I 

I 1 

I 4 I 

I 1 

I 2 I 
1-^ii'v 
I 4 I 
I 1 

•$' . % 

I 1 

I I 

ÄJ I 

I I 


a) b) 


d) 


ABBILDUNG 2-21: Stack-Diagramm für das Programm (2-48). a) Nach 

Eingeben, vöh 4 und Z "ih .dieser Reihenfolge; b) nach Ausf|||Siriifeg 
von DUP; c) nachdem 3 aöi den Stack, gepusht wurde; d) nach Aus 
führung von PICK; e) nach Ausführung von SWAP. 


2SWAP - Mit dem FORTH-Kommando 2SWAP werden die beiden obersten 
Stack-Elemente miteinander vertauscht. Dies kann man sich an fol 
gender 'Stack-Relation deutlich machen: 


"i "2 ”3 «|jV> "3 "4 n l "2- 


(2-52) 


Eine eigene Definition von 2SWAP könnte folgendermaßen aussehen: 


: 2 SWAP ROT 4 ROLL SWAP 


(2-54) 
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Die Abbildung 2.-22 . Hst eAft : Stack-Diagramm zürn folgenden kleines! 
Programm: 


81797 2 SWAP (2-55 



117 i ; i i 7 i Bafc# i 



b) c) d) 


ABBILDUNG 2-22: Stack-Diagramm für Programmbeispiel 2.-55 . a) nach 

Eingeben von 8, 17, 9 und 7 in dieser Reihenfolge; b) nach Aus 

führung von ROT; c) nachdem 4 auf den Stack gepusht wurde; d) 
nach Ausführung von ROLL; &) nach Ausführung von SWAP. 


In der Regel werden die mit Ihrem FORTH-System mitgelieferten 
Wörter etwas schneller laufen als die selbstdefinierten, die wir 
hier als Beispiel angegeben haben. 

2ROT - Mit dem FORTH-Wort 2ROT wird die drÜÜe doppelt genaue 
.'jpfeger an die oberste Pos^%öÄ des Stacks gebracht . Für eiüf ach. 
genaue Integers sieht die Stack-Relat’ten folgendermaßen aus: 

n l n 3 n 3' 3 V- " ^ 3 n -4 n 5 r ' l n ‘ 2 < 2 - 56) 
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Bei doppelt genauen Zahlen haben wir 


d 3 


d 2 d 3 d l 


2 OVER - Das FORTH-Wort 2 OVER dupliziert die zweite doppelt genaues 
Zahl als oberstes Stack-Element. Für einfach genaue Integers 
sieht die Stack -Re ; at ton so aus: 


Bei doppelt genauen Integers haben wist 


d l d 2 


d 2 di 


Alle bisher eingefü|trt;en Wörter zur Stack-ManipulafcJäifcP sind also 
völlig analog zu denen, die wir in Abschnitt 2-2 bereits für ein 
fach genaue Zahlen kennengelernt haben. 


2 . 6 Der Return-Stack 


W i r haben ';£fi den bisherigen) Bärstellungen stets ohne weitere 
Unterscheidung von "dem Stack" gesprochen; genaugenommen müßten 
Wir jedoch bzw. Daten-Stack sprechen, da 

dieser Stack zur Speicherung der Daten öder Parameter dient, mit 
denen die einzelnen Wörter arbeiten. Bie .Kreisten FORTH-Program- 
mierer sprechen aber .-^i|r kurz "Stack". Es q : bt jedoch noch 

einen zweiten Stack, den sog. Ret n rm -Stack (wörtlich "Rückkehr- 
Stack"). Diesen Stack benötigt das FORTH-System zur Buchführung 
über die eigenen Operationen. Falls der Return-Stack durcheinan 
derkommt, brechen alle Berechnungen ab, ufl# Sie müssen Ihr System 
neu starten, wobei Sie möglicherweise alle Daten verlieren. Es 
gibt einige FORTH-Wörter, mit denen Sie den Return-Stack manipu 
lieren können. Es scheint so, als ob Sie für diese Wörter gar 
keinen Bedarf hätten, da ja immer die Gefahr besteht, das FORTH- 
System zu zerstören. Befolgen Sie aber bei der 'Arbeit mit dem 
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der vom Return-Stack und 'legen sie äöj den Daten-Stack. Infjsl 
gedessen befindet sich der Returrt-Stack in seinem ursprünglichen 
Zustand; auch auf dem Daten-Stack ist alles beim alten, außer daß 
die fünfte Zahl. ..tppg’; 7 multipliziert wurde. 

Wir wenden uns ö'jih: einigen Befehlen zu, die eine Zahl vom Return- 
Stack kopieren ÜÄJ auf den Daten-Stack pushen. Diese Instruktio 
neu verändern den Return-Stack nicht . weswegen wii; auch ni. eilt die 
gleichen Vorsichtsmaßnahmen wie bei R> und >R treffen müssen. 

R@ oder I - Das Kommando R0 dupliziert den obersten Eintrag des 
Return-Stacks tOm- ; den Daten-Stack. Es wird also die Zahl, die 
sich zuoberst auf dem Return-Stack befindet, jetzt, auch noch auf 
den Daten-Stack gepusht . Dadurch ändert sich der Return-Stack 
nicht. Die zugehörige Stack-Relation sieht folgendermaßen aus: 


Die Abbildung 2-25 zeigt das Stack-Diagramm für eine Anwendung 
von R@ . Bei einigen FORTH-Systemen, einschließliJJS. dem MMSFORTH, 
kann man anstelle des Befehls R0 auch das Wort I verwenden. Gemäß 
den Standards von FORTH-79 sollte man I jedoch nur anwenden, um 
einen Laufindex für eine DO-Schleife zu erhalten. Wir werden uns 
diesem Thema in Kap : tei 4 noch genauer zuwenden. (Beachten Sie, 
daß in einigen FORTH-Systemen das Wort R0 unter Umständen gar 
nicht vorhanden i s*i5 in diesem Fall müssen. I|jie Äftfl 1 zufftekgrei 
fen . ) 

I 1 - Das FORTH-Wort I* dupliziert die zweite Zahl am Return-Stack 
auf den Datenstack. Wiederum bleibt der Return-Stack unberührt 
vgn der Operation; lediglich der Daten-Stack wird um einen Eift 
trag erweitert s Dies charakterisiert die folgende Stack-RelSSfeion : 


(2-64) 


Beachten Sie, daß das Wort I' kein Teil des FORTH-7 9— Standards 
ist . Es isp »jedoch. 'iS|h MMSFORTH üfl4 in, anderen FORTH-Systemen 
plementiert . 




ABBILDUNG 2-25: a) Der Stack und der RetuÖl-Stack; fc>) die beide|§' , 

Stacks nach Ausführung von R0 . 

J - Iffitels J können Sie die dritte Zahl des Return-Stacks 
den Daten-Stack duplizieren:^- Das Wort läßt den Return-Stack na 
verändert. Seine Stack-Relation ist 
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5 POLYNOMIAL 


Betrachten Sie nun die erste Zeile der Abbildung 2-26. Der Wert 
für x, in diesem Fall 5, wird vom Daten-Stack entfernt und 
den Return-Stack gepusht. Anschließend wird er in Zeile 2 vom 
Return-Stack dupliziert und befindet sich jetzt wieder auf dem 
Daten-Stack. Kit diesem Wert 5 arbeitet nun das Wort VIERTE, 
wobei anschließend das Ergebnis vop VIERTE mit 3 multipliziert 
wird.. Somit befindet sich jetzt 3x 4 an oberster Stack-Position . 
Zeile 4 dupliziert die zwischengespeicherte 5 erneut vom Return- 
Stack auf den Daten-Stack und. ruft das Wort DRITTE. Danach pushen 
wir die 2 auf den Stack: und führen * aus. Jetzt haben wj r bereits 
3x und 2x dem Stack stehen. Wie Sie sehen können, gleicht 

das Programm iß weiten Teilen dem aus Abbildung 2-17.. fj-ie meisten 
Details der Zeilen 4'.., 5 und 6 entsprechen der alten Version; di® 
Programme unterscheiden sich lediglich in der Art, in der der 
Parameter 5 den einzelnen Wörtern VIERTE, DRITTE und ZWEITE über 
geben wird. In Zeile 6 drucken wir schließlich das gewünschte 
Ergebnis aus. Ehe wir nun'.' jedoch unser Wort POLYNOM verlassen 
können, müssen wir erst alle Änderungen, die wir am Return-Stack 
vorgenommen haben, wieder rückgängig machen. Dafür sorgt das R> 
.in Zeile 7, denn es entfernt den obersten Wert vom Return-Stack 
und legt jjfii auf ; den Daten-Stack. Jetzt haben wir nieder densel 
ben Zustand auf dem Return-Stack wie bei Beginn des Programms. 
Wir könnten jetzt mit der Definition von POLYNOM aufhören, würden 
aber in diesem Fall auf dem Daten-Stack den zuletzt darauf ge 
pushte® Wert (in diesem Fall 5) hinterlassen.. ;Biies i,4Sf schlechter 
SföR. und führt zu unnötigem Aufblähen des Stacks. Deshalb haben 
wir in Ze : } e 1 noch ein zusätzliches DROP aufgenommen. Damit 
verlassen wir die Wortdefinition. 


0 ( Alternative Fassung von POLYNOM ) 

1 : POLYNOM >R 

2 R 0 VIERTE 3 * 

3 R 0 DRITTE 2 * + 

4 R 0 ZWEITE 5 * + 

5 R 0 2 * + 

6 4 + , 

•f R> DROP ; 


ABBILDUNG 2-26: 


Modifizierte Version des Wortes POLYNOM 
aus Abbildung 2-17 
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2 . 7 Weitere Arithmetik-Befehle 


Wir betrachten nun einige weitere FORTH-Wörter , mit denen wir 
mathematische Operationen ausführen können. läljijige eiisfache Be 
rechnungen werden nämlich sehr häufig gebraucht, weswegen dafür 
bereits vorgefertigte FORTH-Wörter zur Verfügung stehen. 

1 + - Das Wort 1 + entfernt den obersten Stack-Eintrag, erhöht 

(inkrementiert) seinen Werfe-ffüm 'a*. und pusht aöschließend diese 
Summe auf den Stack. Wir erhalten als Stack-Relation: 


( 2 - 66 ) 


Wir können natürlich unser eigenes 1 + schreiben; dies sieht -dann 
folgendermaßen aus : 

: 1+ 1 + ; (2-67) 

Beachten Sie aber, daß das eingebaute Wort 1 + in der Ausführung 
schneller ist als ein selbstgeschriebenes, da eingebaute Wörter 
itt Maschinensprache geschrieben sind. 

1- - ^JJas FORTH-Wort 1- entfernt die oberste Zahl vom Stack, 

subtrahiert davon 1 (dekrementiert sie) und pusht das Resultat 
auf den Stack, Oie zugehörige Stack-Relation lautet: 
n-1 (2-68) 

2 + - Das FORTH-Wort 2 + entfi&%f0 die oberste Zahl vom Stack, 

addiefjl® darfciif 2 und legt das Ergebnis als neuen oberste^; 1t!$S(trag 
auf den Stack. Die Stack-Re 1 atiön lautet. 


(2-69) 
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2 - - Das FORTH-Wort 2 - entfernt die oberste Zahl ddm Stacx, 

subtrahiert davon die 2 und pusht did Differenz wieder auf den 
Stack. Als Stack-Relätrioh haben. #ir: 


n -> n-2 (2-70) 


2 * - Das FORTH-Wort 2 * entfernt die oberste Zahl vom Stack, 

multipliziert sie mit 2 und legt das Produkt auf dem Stack ab. 
Die Stack-Relation lautet 


Dieses Wort ist zwar noch kein Bestandteil, von FORTH-7 9, ist aber 
in MMSFORTH und in anderen FORTH-Systemen bereits implementiert . 

2 / - Das Wort 2 / entfernt die oberste Zahl vom Stack, dividiert 
sie durch 2 und legt den entstehenden Quotienten auf den Stack. 
Seine Stack-Relat'igäi ist 


•jg.W n/2 (2-72) 


Es gibt keine Variante dieses Wortes, die - ähnlich wie MOD - den 
Divisionsrest berechnet. Auch dieses Wort ist noch kein Teil, des 
FORTH-7 9-Standards, aber bereits in MMSFORTH und anderen Systemen 
implementiert . 


16 * - Das FORTH-Kommando 16 * ent£sjai|ii .die oberste Zahl auf dem 

Stack, multipliziert sie mit 16 und legt das Produkt auf den 
Stack. Thre Stack-Relafltöi lautet: 

n -> n*16 (2-73) 


Dieses Kommando ist kein Teil von FORTH-79, aber bereits in MMS 
FORTH und anderen FORTH-Systemen implementiert. 
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Wenden wir uns nun einigen Wörtern zu, die Zahlenpaare manipulie 
ren. Diese entfernen im allgemeinen ci i e zwei obersten Einträge 
vom Stack und ersetzen sie durch einen neuen Wert. 

MIN - Das FORTH-Wort MIN ent f'ornt die zwei obc rsien Stack-Ein 
träge und ersetzt sie durch den kleineren der beiden (das Mini 
mum) . Seine Stack-Relation lautet: 


n j n 2 — > n min (2-74) 

Wir erhalten also mit 2 3 MIN . (RETURN) eine 2 auf dem Bütt 
schirm« Ähnlich ergibt 4 -3Q MIN . (RETURN) das Ergebnis -30. In, 
beiden Fällen ist der Stack nach Ausführung des Punktkommandos 

MAX - Das Kommando MAX entfernt di e zwei obersten Zahlen ästf' dem 
Stack und legt die größere der beiden dort wieder ab. Seine 
Stack-Relation lautet: 


(2-75) 


Die nächsten beiden Wörter arbeiten wieder vijsgiu mit der oberste^? 
Zahl auf dem Stack. In beiden Fällen wird diese Zahl entfernt und 
durch eine andere ersetzt. 

NEGATE - Da£S- Wort NEGATE entfernt die oberste Zahl di# dem Stack, 
multipliziert sie mit -1 und legt dieses Produkt auf den Stack. 
Da dg red wird das Vorzeichen der Ausgangszahl vertauscht. Die 
Stack-Relation lautet: 

-n (2-76) 




eir.qcber. 


6 NEGATE . (RETURN) 


(2-77) 
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wird als Ergebnis -6 au s gedruckt . Nach Ausführung des Punktion, 
mandos ist der Stack wieder leer, vorausgesetzt,, er war vor Aus 
führung dieses Wortes auch leer. 

ABS - Das FORTH-Wort ABS entfernt den obersten Stack-Eintrag und 
liefest dessen Absolutwert. Daher, leitet s ich der Name die 

ses Wortes her. Der Absolutwert wird dann auf den Stack gelegt. 
Wie Sie wissen, ist der Absolutwert einer positiven Zahl einfach 
diese Zahl selbst. Den Absolutwert einer negativen Zahl erhält 
man, indem man diese Zahl mit -1 multipliziert, also positiv 
macht. Dies wird durch'-^lgende Stack-Relation ausgedrückt: 


Wenn wir z.B. eingeben 


-6 ABS . (ENTER) 


(2-79) 


dann wird als Ergebnis 6 ausgedruckt. Danach (nach Ausführung des 
P ur. k t k cmrr.a r-.do s ) ist der Stack leer, vorausgesetzt, er war auch 
vor Ausführung dieses Wortes leer. 


2.7.1 Zufallszahlen 


Manchmal wollen wir auf unserem Rechner ein Zufallsereignis, wie 
etwa das Würfeln oder das Werfen einer Münze, simulieren. Im Fal 
le des Würfels müßten wir dazu Zahlen zwischen 1 und 6 xjS xüfal 
liger Reihenfolge erzeugen können. Beim Münzwulöfe" benötigen 
hur Zahlen zwischen 0 jSgjjil.' 1 (oder zwei beliebige andere Zahlen), 
die in zufälliger Reihenfolge auf dem Bildschirm erscheinen. Im 
allgemeinen kann das Bedürfnis auftauchen, eine zufällige Folge 
von Zahlen, die sich rsö einem vorgegebenen Bereich bewegest, vom 
Computer erzeugen zu lassen. Natürlich gibt es Computerprogramme, 
die scheinbare Zufallsfolgen von Zahlen erzeugen» Im streng ma 
thematischen Sinji. .sind diese Folgen nicht, zufäl 1 ig, sie reichen 
jedoch für -die meisten Anwendungsgebiete aus. Man nennt, sie äus 
diesem Grund auch "Pseudozufallszahlen" . Eine Möglichkeit zum 
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Erzeugen von Zufallszahlen ist in FORTH-79 nicht vorgesehen. Ei 
nige FORTH-Systeme kennen aber dennoch die. dafür nötigen Befehle. 
Wir wenden uns deshalb den Wörtern zu, die in MMSFORTH zur Erzeu 
■gütig von Zufallszahlen zur Verfügung stehen. 

RND - Das FORTH-Wort RND entfernt die oberste Zahl i rööl Stack 

und erzeugt daraufhin eine Pseudozufallszahl n die zwischen 1 
Ä#Ü rt liegt. Diese Zufallszahl wird dätifl den Stack gelegt. 

Die Stack-Relation lautet. 


Kenn wir z.B. eingeben: 24 RND (RETURN), dann wird die 24 ^014 

Stack entfernt und dafür eine Zufallszahl zwischen 1 und 24 dort 
abgelegt . Der Zufa.tiszah 1 er'.generator verwendet eins:- sogenannte 
Ursprüiigszahl,,, üä; eine .ssjsffällig erscheinende Zahlenfolge zu er 
zeugen. Wenn wir die Ursprungszahl ändern, dann sorgen wir auch 
dafür, daß der Generator eine neue Zahlenfolge produziert . 

SEED - Um die Uräprungszahl ändern Zu”, können, müssen wir zwei 
FORTH-Wörter einsetzen: Eines;, lautet SEED, das andere ist das 
Ausrufezeichen i. Wir schreiben sie $£ der ReihejäJfolge SEED ! 
hin. Achten Sie au f das Leerzeichen. Die Bedeutung des Wortes ! 
erläutern wir Jjn Kapitel 6. Für den Augenblick wollen jjüifr die 
Folge vd^'.)Wörterf| SEED ! so behandeln., als handle es shcÄ dabei 
um einen einzigen Befehl, las FORTH-Wort SEED ! entfernt die 
oberste Zahl $$$ äftack und macht sie .Mr neuen Ursprungs zähl dSÖs 
den. fef 'ällszahlengenerator . Die Stäck-Relatioü' für SEED 1 lautet: 


(2-81) 


mittels SEED ! (RETURN) ändern $££ die Ursprungszahl auf 10 . 

Wenn wir die Ursprungszahl in zufälliger Folge ändern wollen, 
dann können wir mittels RND eine ZufaHszahl auf den Stack legen 
und diese dann durch das Wort SEED ! vom Stack entfernen und zur 
neuen Ursprungszahl machen. Es gibt aber auch ein Kommando, das 
all diese Schritte ausführt. Bei Eingabe von RN1 wird die nächste 
Zufäl 1 szah I. erzei|gt Und. als neue Ursprungszahl für die Reihe ver 
wendet. Diese Operation hat keinerlei Auswirkungen auf den Stack. 
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Die Ursprungszahl bestimmt also die Folge von Pseudozuf allszah 
len, die generiert werden. Bei gleicher Ursprungszahl erhalten 
wir stets die gleiche Folge, Im allgemeinen ist die Folge der 
Pseudozufallszahlen sehr lang, aber endlich. Nach einer gewissest; 
- unter Umständen sehr langen Zeit - beginnt sie sich also zu 
wiederholen. Senn wir ein Spie! Programm mittels RND schreiben, 
dann spielt dieses Programm deswegen immer auf die gleiche Weise. 
Deshalb wäre es wünschenswert, die "Einsprungstelle" in die Reihe 
der Zufallszahlen selbst bestimmen zu können .^Jfafür gibt es ein 
spezielles FORTH-Wort. 

RANDOMI ZE - Das Wort RANDOMI ZE benötigt keine Zahl auf dem Stack. 
Jedesmal, wenn Sie es aufrufen, ändert RANDOMI ZE die Position in 
der Folge der Zufallszahlen. Wenn Sie also mit RANDOMI ZE arbei 
tehi dann beginnt Ihre Zahlenfolge an einer anderen Stelle und 
erscheint so unterschiedlich. 


2.7.2 Ändern der Zahlenbasis 


Anwender, die sich um die Details der Maschinensprache .Glicht zu 
kümmern brauchen, arbeiten für gewöhnlich im Dezimalsystem. Die 
ses uns sehr vertraute System verwendet die Ziffern von Ö bis 9 
und wird vornehm als "Zahlensystem zfög$- Basis;..'®)" bezeichitet . Im 
Unterschied dazu verwenden Computer eih ^binäres" Zahlensystem, 
also ein System mit der Basis 2 . Alle Mg? ihreift Computer gespei 
cherten Zahlen und alle Werte, denen er rechnete;, sind yffojjf? 

Basis 2. Bei der Ein- oder Ausgabe von Zahlen findet jedoch eine 
Umwandlung in das Zehnersystem statt» um dem Menschen die Arbeit 
zu erleichtern . FORTH bietet Ihnen nun die Möglichkeit,- diese 
Umwandlung zu ändern, so daß Sie auch mit anderen Zahlensystemen 
außer dem Dezimalsystem arbeiten können. Viele Systemprogramm^ 
rer verwenden die Basis 8 (das oktale Zahlensystem) oder die 
Basis 1.6 (das hexadezimale Dezimalsystem) . Sie können Ihrem Sys 
tem sagen, in welcher Basis Sie die Ein- oder Ausgabe von Zahlen 
wünschen. (Wenn Sie nicht mit anderen Zahlensystemen vertraut 
sind, dann können Sie diesen Absatz übergehen. Für ein Verständ 
nis von FORTH ist es nicht wichtig, genauere Kenntnisse über 
Zahlensysteme, zu besitzen.) Die im Folgenden vcrgesle Ilten Wörter 
sind bisher noch kein Bestandteil von FORTH-79. Dies kann sich in 
a ber durchaus ändern. Auf-: federt Fall sind sie 
und anderen FORTH-Systemen implementiert. 


MMSFORTH 
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HEX - Mit dem Wort HEX ändern Sie die Basis für die Ein-/Ausgabe 
von Zahlen jfM das Hexadezimalsystem um. HEX hat keine Auswir^jä^ 
geh äätif den Stack. Es ändert aiäö keine Zahl.. . dem Stack ode£ 
irgendwo anders Jfirem Rechner. Die einzigen Auswirkungen die 

HEX hat, beziehen sich auf Ihre Ein- und Ausgaben. Sie sollten 
das Wort HEX immer allein verwendest es also Sipe äftSt. Bestandteil 
eines anderen Wortes (einer Definit: er.) machen. Kommt es doch 
einmal; *|L&- einem FORTH-Wort ifor, dann sollte dieses Wort keine 
Eingabe ■StWrischefc Öaten erfordern. 

DECIMAL - Das FORTH-Kommando DECIMAL funktioniert genauso wie 

HEX, außer daß es die 10 zur neuen Zahlenbasis macht. Beim Star 
ääefri Ihres FORTH-Systems ist die Zahlenbasis 10 ohnehin voreinge 
stellt . 

OCTAL - Das Wort OCTAL stellt auf Zahlenein- und ausgabe im 
Oktalsystem (Basis: 8) um; ansonsten funkt ioni.-e.rt es genauso wie 

HEX. 

BASE - Das Wort BASE wird - ähnlich wie SEED - nur zusammen mit 

dem Wort ! verwendet. Einige FORTH-Systeme, ‘Wie z.B. MMSFORTH, 
ermöglichen es, die Ein-/Ausgabebasis auf andere Werte als 10, 8 

oder 16 zu setzen., ^fiesen Effekt erreicht man durch zwei FORTH- 
Wörter, nämlich BASE ! . Mit dieser Wortfolge wird die oberste 

Zahl vom Stack enif|t%chtt und zur Zahlenbasis für alle folgenden 
Daten, einer Ausgabe gemacht. Ihre Stack-Relation lautet: 


(2-82) 


So istijf.B. 16 BASE ! gleichbedeutend mit HEX. 


2 . 8 Übungsaufgaben 


In den folgenden Übungsaufgaben sollten Sie soweit wie möglich 
Programme und benutzerdefinierte FORTH-Wörter auf Ihrem Computer 
austesten . 

2-1 Schreiben Sie ein FORTH-Programm, das folgende Operationen 
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3+4++5-6 

2.H2 Wiederholen Sie Aufgabe 2-Hjjü.t (3+4#jtS-25) *5 
2-3 Wiederholen Sie Aufgabe 2-1 mi(fc, 7(3+1 9-4 ) / 6 . 

2-4 Schreiben Sie ein FORTH-Programm, das den Quotienten und den 
Rest des folgenden Ausdrucks berechnet: 

(3+4+6 ) H 

2-5 Wiederholen Sie Aufgabe 2-4 mjjg, (3+4*6) /7 

2-6 Schreiben Sie ein FORTH-Programm, das die oberste Zahl auf 
dem Stack mit 5 .iteltipliziert, die Antwort ausdruckt£ die 
ursprüngliche Zahl auf dem Stack hinteriäßti, 

2-7 Erörtern Sie Einsatzmöglichkeiten für das Wort DROP. 

2-8 Wiederholen Sie Aufgabe 2-4 fit dem Ausdruck (4+5-6*3)/7. 

Achten Sie darauf, Daten und FORTH-Wörter nicht miteinander 
zu vermischen. 

2-9 Vergleichen Sie die FORTH-Wörter OVER und PICK. 

2-10 Vergleichen Sie die FORTH-Wörter ROT und ROLL. 

.Schreibe® Sie ein FORTH-Programm, das die Anzahl der Einträ 
ge auf dem Stack ausgibt. 

2-12 Legen Sie dar, wie man ih FORTH neue Wörter definieren kann. 

2-1.3 Schreiben Sie ei® 'eigenes FORTH-Worp^ das die obersten vier 
Zahlen auf dem Stack addiert und dann das Ergebnis druckt. 

2-14 Wiederholen Sie Aufgabe 2-13; diesmal soll der Stack nach 
Beendigung des Wortes unverändert bleiben. 

2-15 Schreiben Sie eiäjfc.. FORTH-Wort, das den Du rchsfchr.itt. der er 
sten fünf Zahlen auf dem Stack berechnet. Geben Sie sowohl 
den Quotienten als auch den Divisionsrest aus. 
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2-16 Schreiben Sie ein FORTH-Programm zur Berechnung von 

6x 5 +3x 4 +2x 3 -21x 2 -17x+5 

für verschiedene Werte von x. 

2-17 Schreiben Sie ein FORTH-Programm zur Berechnung von ax +b 
für verschiedene Werte von a, b und x. 

2-18 Schreiben Sie ein FORTH-Programm zur Berechnung von 

ax 3+bx 2+cx+d 

für verschiedene Werte von a, b, c, d und x. 

2-19 Erörtern Sie das FORTH-Wörterbuch . 

2-20 Erörtern Sie das FORTH-Wort FORGET. 

2-21 Legen Sie dar, wie FORGET bei der Fehlersuche einzusetzen 


2-22 Was bedeutet der Ausdruck "doppelt genaue Zahl"? 

2-23 Vergleichen Sie die FORTH-Kommandos DUP und 2DUP . 

2-24 Schreiben Sie ein eigenes FORTH-Wort, das die gleiche Wir 
kung wie 2DROP hat . 

2-25 Schreiben- Sie | eigenes FORTH-Wc das die gleiche Wir 
kung wie 2ROT hat . 

2-26 Schreiben Sie ein eigenes FORTH-Wort, das die gleiche Wir 
kung wie 20VER hat . 

2-27 Welche Haüp%«öf gäbe hat der Retügätt*-Stack? 

2-28 Welche Probleme können sich ergeben, wenn Sie den Return- 
Stack selbstde|;3Sierten Wörtern heranziehen? Wie 
man diese Pitjfoleme vermeiden? 

2-29 Schreiben Sie ein FORTH-Wort, das die ersten fünf Zahlen 
dem,. Stack multipliziert, den Stack aber ansonsten uBvei 
dert laßt. Bedienen Sie si;eB dazu des Return-Stacks. 
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2-30 Warum müssen Sie bei der Verwendung von >R und R< mehr Sorg 
falt walten lassen als bei R(§? 

2-31 Erörtern Sie die FORTH-Wörter I, I' und J. 

2-32 WiederhjO.len Sie Aufgabe 2-18, verwenden Sie aber diesmal deft 
Return-Stack . 

2-33 Warum ist es sinnvoll, mittels DROP Daten vom Stack zu 
entfernen, die nicht mehr gebraucht werden? 

2-34 Schreiben Sie mit den in Abschnitt 2-7 eingeführten FORTH- 
Wörtern ein neues FORTH-Worg^:. das 1 auf den obersten Stack- 
Eintrag addiert und dann das Ergebnis dupliziert. 

2-35 Schreiben Sie ein FORTH-Wort, das die kleinste der ersten 
vier Zahlen auf dem Stack ausgibt . 

2-36 Wiederholen Sie Aufgabe 2-35, lassen Sie jedoch den Stack 
unverändert . 

2-37 Wiederholen. Sie Aufgabe 2-35, machen Sie diesmal aber die 

größte Zahl ausfindig. 

2-38 Wiederholen Sie die Aufgabe 2-36, machen Sie diesmal abei* 
die größte Zahl ausfindig. 

2-39 Wiederholen Sie die Aufgabe 2-35, machen Sie diesmal aber 
den gpoiXten Absolutbetrag ausfindig. 

2-40 Wiederholen Sie Aufgabe 2-36, machen Sie diesmal aber den 

größten Absolutbetrag ausfindig. 

2-41 Wiederholen Sie Aufgabe 2-35, machen Sie diesmal aber den 

kleinsten Absolutbetrag ausfiniliig. 

2-42 Wiederholen Sie Aufgabe 2-36, machen Sie diesmal aber den 

j^jypinsten Absolutbetrag ausfindig. 

2-43 Vergleichen Sie die FORTH-Wörter NEGATE und ABS. 

2-44 Was ist eine.- «ulSfllszahl? 

2-45 Was ist eine Ursprungszahl? 
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2-46 Schreiben Sie ein FORTH-Wort, das eine Zufallszahl zwischen 
1 und erzeugt . 

2-47 Schreiben Sie ein FORTH-Wort, das eine Die zimal zahl in ihr 
hexadezimales Äquivalent umwandelt. 

2-48 Wiederholen Sie die Aufgabe 2-46, wandeln Sie diesmal aber 
in ein:# 'Oktalzahl um. 

2-49 Schreiben Sie ein FORTH-Wort, das fünf Zahlen in hexadezima 
ler Darstellung addiert und ihre Summe sowohl hexadcz irhä.) 
als aujiält de tilha 1 ausai b:. . 


94 



3 

Elementare 

Ein- und Ausgabeoperationen 




3 Elementare Ein- und Ausgabeoperationen 


Bisher konnten wir nur über das FORTH-Wort . Zahlen auf dem Bild 
schirm ausgeben. Dieses Kapitel wird Ihre Kenufcilisse über die 
Ein-/Ausgabe von Daten erweitern. Wir werden FORTH-Kommandos ken 
nenlerneife die uns die Ausgabe von Textmaterial (Wörtern) erlern 
ben. Solcher Text kann dazu dienen, die Ergebnisse von Berechnun 
gen zu erläutern und die Bildschirmausgaben lesbarer zu machen. 
Zusätzlich kau# man mit Textausgaben den Benutzer zur Eingabe vpri- 
gewünschten Werten auffordern, was besonders für die Benutzer 
eine große Hilfestellung ist, die keine erfahrenen Programmierer 
sind. Weiterhin werden wir Verfahren kennenlerneä, : mit denen wiÄ J 

Zahlendaten lesbarer gestalten können* 


3 . 1 Textausgabe 

Dieser Abschnitt widmet sich einigen FORTH-Wörtern, mit denen wir 
Text jajfiäE dem Bildschirm des Ter ml na 1s ausgeben können. Wo rrn wir 
etwa ein Programm laufen lassen, das die Summe von vier Zahlen 
berechnet, dann wäre es wünschenswert daß dieses Programm den 
Text «q'SE summe LAUTET" ausgibt, um sein Ergebnis x« erläutern. 
Wenn wir ferner ein Programm schreiben.-,. ' das eine Wertetabelle 
ausdruckt (z.B. eine Quadrat- und Kubikzahlentabelle) , dann wäre 
es wünschenswert, Überschriften über diese Tabelle drucken zu 
können . 

'• uft.d " — mit;’- plen FORTH-Wörtern . " und " kann Textmäteri&l 

ausgeben. Wenn wir eingeben: 


JETZT DRUCKEN WIR TEXT " (RETURN) 


so bekommen wir auf unserem Bildschirm zu sehen: 


JETZT DRUCKEN WIR TEXT ok 
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Wie Sie sehen können, befindet sich ein Leerzeichen hinter dem 
Wort ebenso, wie sich hinter jedem FORTH-Wort ein Leerzeichen 

befinden muß. Der gesamte folgende Text hinter dem lieerzeichen 
wird auf dem Bildschirm ausgegeben. Er endet mit dem Kommando ". 
Diese beiden Wörter haben keine Auswirkung auf den Stack. Ehe wir 
uns einem komplizierteren Beispiel für die Ausgabe von Textmate 
'|jf|al zuwendeifot. ‘ wollen wir: ijöch einige weitere FORTH-Wörter ken 
nenlernen . 

#IN - DiSft FORTH-Kommando #IN dient der Eingabe von Zahlen. Wenn 
dei ’FORTH-Interpreter ata;#.'- #IN stößt, dann unt'erb^äSft-, er seine 
Arbo . -und gibt ein Fragezeichen auf Ihrem, fpfl dff4aj§ilr:ts . An 
schließend können Sie eine ganze Zahl im Bereich von -327 68 bis 
327 67, gefolgt von RETURN, eingeben ,lj0ä.ie eingegebene Zahl wird 
auf den Stack gelegt, und FORTH fährt mit der Arbeit ^#jft . Das 
Wort #IN kein Bestandteil von FORTH 7 9, findet sich aber in 

MMSFORTH; die meisten anderen FORTH-Systeme verfügen über ähnli 
che Wörter. 

CR - Das FORTH-Wort CR gibt die Zeichen für Wagenrücklauf und 
Zeilenvorschub auf Ihrer Konsole aus. Dies bewirkt, daß nachfol 
gendes Textmaterial am Anfang der nächsten Zelle ausgegeben wird. 
Zwei CR-Kommandos hintereinander erzeugen somit eine Leerzeile, 
3p|£ drei solchen Wörtern erzeugen zwei Leerzeilerf usw. Auch 

CR hat keine Auswirkungen auf den Stack. 

QUIT - Manchmal wollen wir aus ästhetischen ©runden die Ausgabe 
von "ok'* : unterbinden, das FORTH nach jedem erfolgreich abgearbei 
tetem Wort auf den Bildschirm bringt. Dies erreichen wir, wenn 
das letzte Wort in unseren-, Programm QUIT ist. Das Programm wird 
beendet;., und FORTH!" bereit ihr die Eingabe neuer Informatie 

ne|K unterläßt es jedoch, seine Bereitschaftsmeldung "ok" auszu 
geben. QUIT löscht zwar den Return-Stack, läßt aber den Daten 
stack unverändert . 

PAGE - In Programmen taucht oft die Notwendigkeit auf, den Bild 
schirm zu löschen Uhd i&iher neuerjEji V'sauberen" Bildschirmseite 

mit der Ausgabe zu beginnen. Diese Funktion erfüllt das FORTH- 
Wort PAGE. Es hüb keine Auswirkungen auf den Stack . (Auch dieses 
Wort ist kein Teil von FORTH 79, jedoch in MMSFORTH föjplemen- 
tiert.) 

Den Einsatz der bisher besprochenen FORTH-Wörter wollen wir an 
einem Programm verdeutlichen, das die Summe von 4 Zahlen herech- 



3 Elementare und A u s q a b e o p e r a 1 1 o n e rf 


net. Das Programm ur.te rschc : det. sich von den bisher gescfijriebenen 
in einem wichtigen Punkt. Wir gehen davon aus, daß es von einem 
Benutzer bedient wird, der keine Erfahrung im Umgang mit FORTH 
jjät . Deshalb erwarten wir ftifcht, daß dieser Benutzer erst seine 

Daten auf den Stack legt, ehe er das Wort -aufruft. Stattdessen 

erfragt das Programm seine Daten selbst und erklärt das Ergebnis 

seiner Berechnungen, ehe es dieses Uirf dem BildschipfflS; ausgibt. 
Wir sehen es in Abb. 3-1. Einen Beispiellauf für dieses Programm 

können Sie der Abb. 3-2 entnehmen. 


0 ( Beispielprogramm mit Benutzermeldungen und erklärendem Text ) 

1 : ADD 4 PAGE 

2 . " Bitte bei jedem Fragezeichen eine Zahl eingeben " 

3 CR . " Eingabe mit RETURN abschliessen " CR 

4; # IN # IN #IN # IN CR 

5 + + + 

6 . " Die Summe der vier Zahlen lautet " CR 

f * QUIT ; 

8 

9 

1 0 
1 1 
1 2 

1.3 

14 

% 


ABBILDUNG 3-1: Ein Programm, das im Dialog Irtit dem Benutzer 
Daten erfragt und sein Ergebnis beschriftet 


iSiit© bei. jedem Fragezeichen eine Zahl eingeben 
Eingabe mit RETURN abschliessen 
? 4 ? 5 ? 6 ? ? 

Die Summe der vier Zahlen lautet; 

22 

ABBILDUNG 3-2 : Beispiella^S- des Programms ADD4 


Sehen, wi,%. .flifiS das Programm einfeal genauer an. In Zeile 1 teilen 
wir dem Compiler mit, welchen Namen wir dem neuen Programm geben 
wollen. Diesel' lautet ADD4 . Als ersten Schritt jlp unserem Pro- 
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.Ein- und Ausqabecperai. i onen 


grairan löschen wir mittels PAGE deii Bildschirm. In Zeile 2 sehen 
wiE ei £$ -Anwendungsbeispiel für das Textausgabewdtt uiTc) die 
beiden Kommandos sorgen daß der Text "Bitte bei jedem 

Fragezeichen eine Zahl eingeben" auf Ihrem Bildschirm ausgegeben 
wird. Das erste Wort ,’ipi Zeile 3 des Programms, CR, sorgt cLafttfc, 

das der nächste Text äöjR einer -eigenen Zeile beg Lnnt. . Auch ihn 

geben wir mittels .%pwie " S 1 Ä# er lautet "Eingabe sfife 

RETURN abschliessen E:teäeiit sorgt eläl- ;CR dafilE, daß ha.j?Ä'folgen 
de Informationen auf eine eigene Zeile zu stehen kommen. Jedeiip 

der vier #IN -Befehle in Zeile 4 bringt ein Fragezeichen auf den 

Bildschirm, danach wartet, das System so lange, bis der Benutzer 

mittels RETURN eine Zahl eingegeben hat. Diesen Vorgang können 
wir der Abbildung 3—2 entnehmen. Die Benutzer eingegebenen 

Zahlen werden in der Reihenfolge auf den Stack gepusht, d.h., die 
zuletigt eingegebene Zahl befindet Sich f§i$oberst dem Stack. 

Die drei +-Wörter in Zeile i entfernen nun diese vier Zahlen vom 
Stack und ersetzen sie djitoh ihre Summe. Zeile 6 sorgt dafür, daß 
dejt ’fext "Die Summe der vier Zahlen lautet” auf dem Bildschi&n 
erschufst . ,ft$e Summe selbst geben wir allerdings auf eiueili neuen 
Zeile aus, weswegen als letztes Wort in Zeile 6 noch ein CR 
steht . Die Ausgabe der Summe besorgt in Zeile 9 das Punktkomman 

do. Schließlich beenden wir unser Programm mit QUIT, ohne daß bei 
Beendigung die Bereitschaftsmeldung "ok" ausgegeben wird. 

SPACE - Manchmal wollen wir in? jjjjnseren Text Leerzeichen eirjfSi- 
geht Dies bewerkstelligt das FORTH-Wort SPACE. SPACE ist also 

nichts anderes als eine Abkürzung für . " " . Mit SPACE kann man 

Daten auf dem Bildschirm und im Text posajjt&Qiiieren . Wir werden 
aber noch andere und bequemere Arten zur Formatierung von Ausga 
bedaten kentieplernen . SPACE hat keine Ausweisungen auf den Stack. 

SPACES - Das FORTH-Wort SPACES entfernt die oberste Zahl .jpg® 

Stack und gibt eine entsprechende Zahl von Leerzeichen aus . -Hie 

Stack-Relation lautet 


(3-3) 


Äih Beispiel: 


6105. SPACES . (RETURN) 


(3-4) 
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Und Ausgabeoperationen 


are Ein- 


Dieses Programm liefert folgendes Ergebnis: 

5 6 ok (3-5) 


Wie Sie sehen, stehen zwischen der und der 6 insgesamt 10 

Leerzeichen . 

PTC - Manchmal wollen wir Informationen an einer bestimmten Stel 
le am Bildschirm erscheinen lassen. Sicher ist Ihnen schon die 
Schreibmarke oder der Cursor auf Ihrem Bildschirm eingefallen; 
ähn.l. ich wie der Kugelkopf 'bei einer Kugelkopfschreibmaschine gibt 
der Cursor an, an welcher Stelle auf dem Bildschirm das nächste 
Zeichen erscheint, das Sie über Ihre Tastatur eingeben. Mit dem 
FORTH-Wort PTC können Sie diesen Cursor positionieren. Dazu wird 
der Bildschirm in Zeilen und Spalten unter fps. 1 1 . PTC entferöC die 
obersten zwei Einträge auf dem Stack. Das oberste Stack-Element 
gibt die Spalte an, während das nächste Stack-Element die Zeilen 
nummer angibt . Sehen Sie zuerst im Bedienungshandbuch Ihres Com 
puters nach, um herauszufinden, über wieviel Zeilen und Spalten 
Ihr Bildschirm verfügt. Sie sollten diese Werte in einem Programm 
auf keinen Fall überschreiten. Di&-. 'Stack-Relation für das Wort 
PTC lautet 


n 1 n 2 — > (3-6) 

Wenn wir also eingeben: 


10 6 PTC ." Gruess Gott " (3-7) 

dann wird die Meldung "Gruess Gott" auf Zeile und Spalte 6 

ausgegeben. Das Wort PTC ist kein Bestandteil von FORTH 79, 
findet sich aber in MMSFORTH . 
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3 . 2 Druckausgabe 


Die soeben besprochenen Beispielprogramme ’feäafcen • j$ 5 t® Ausgabea 
nur auf dem Bildschirm machen. Verfügen Si# über einen Drucker, 
so werden Sie diesen natürlich einsetzen wollen. Zwar .ist ,j|h. 
FORTH-79 kein spezielles Wort für Druckerausgabe vorgesehen, die 
meisten FORTH-Systeme verfügen aber über Kommandos, mit denen man 
Informationen am Drucker ausgeben kann. Wir besprechen hier di® 
Sjiischlägigen Kommandos des MMSFORTH-Systems . 'fijjiese Wörter odeic- 
ähnlich funktionierende werden wohl auch eines Tages zum Bestand 
teil von FORTH-79 gemacht. 

PRINT - Das Wort PRINT sorgt dafür, daß Ausgaben, die normaler 
weise auf den Bildschirm gehen, auf dem Drucker erfolgen. PRINT 
läßt den Stack unberührt. Bfti der Dateneingabe erscheinen die 
eingegebenen Daten normalerweise auch auf dem Bildschirm. Je nach 
der Arbeitsweise Ihres Systems kann es sein., daß PRINT keinen 
Einfluß j$t£ die Darstellung von Eingabedaten hat. Diese ersehe! 
nejk nach wie vor auf dem Bildsdliirm und gelangen nicht aiit' den. 
Drucker. Dafür werden Program mausgaben auf den Drucker ge 

schickt und sind auf der Konsole nicht mehr zu sehen. 

PCRT - Das FORTH-Wort PCRT funktionifcrS genau wie PRINT, legt 
aber Programmausgaben zusätzlich auch auf den Bildschirm. PCRT 
läßt den Stack unverändert. Beachten Sie, daß PCRT keine Auswir 
kung auf die Bildsdlitrmdarstellung hsTf«* • sondern lediglich Susätz 
lieh eine Druckausgabe bewirkt. 

Sie sollten die Wörter PRINT und PCRT nicht anwenden, wenn an Ihr 
System kein Drucker angeschlossen ist . In diesem Fall kann es 
sein, daß Sich Ihr Computer "auf hängt" und Sie gezwungen s :.nd, 
das System (unter Umständen mit Datenverlust) ’h^u zu starten. 

CRT - Mit dem MMSFORTH-Kommando CRT wird die Wirkung von PCRT und 
PRINT aufgehoben. Nach AusfiiSbuhg. yb© CRT wi'iä' die Druckausgabe 
beendet, und alle Datenausgaben gehen. Frieder auf den Bildschirm. 

Die meisten Kommandos, die wir im ersten Teil des Kapitels be 
sprochen haben, funkti'iftlKieren auöfc- ;&üf dem Drucker. Man kann .also 
etwa mit PAGE den Drucker veranlassen, das Papier auf den Anfang 
der nächsten Seite vorzuschieben. Die genaue Funktionsweise kann 
jedoch von System zu System variieren. Spielen Sie deshalb ein 
fSsph mit diesen Anweisungen etwas herum. 
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3.3. Der ASCII-Code 


In Ihrem Rechner werden alle Informationen in Form von binäreij 
Zahlen gespeichert, iSies ist die sog. Int erndar Stellung Dennoch 
kann der Computer auch mit Buchstaben und anderen Symbolen umge 
hen . Wir wissen ja, daß - JftSl FORTH-Wörtä* eingeben können und 

daß er in der Lage ist, Textinf ormationen auf dem Bildschirm oder 
Drucker auszugeben. Der Computer kann mit diesen Symbolen arbei 
jfceS;* weil Sil# Jedes eine Zahlenentsprechung, ein sog. Code ver 
einbart wurde. Die Ein-/Ausgabegeräte Ihres Systems können diese 
Codes generieren bzw. verstehen. Angenommen, dem Buchstaben A ist 
•die Codezahl 65 zugewiesen. Wenn Sie auf Ihrer Tastatur die Taste 
r.it dem A niederdrücken, dann wird die Zahl 65 in binärer Form an 
den Computer gesendet. Ähnlich verhält es sich bei der Ausgabe 
voij •-itflrörmätionen : Wenn der Computer ein A ausgeben will, dann 
■gibt er tatsächlich die 65 in binärer Form von sich. Das Terminal 
hzv. der Drucker decodieren diese Zähl und erzeugen daraus den 
•gewünschten Buchstaben. 

Damit Computer mit Tornina 1 s und Druckern von verschiedenen 4er 
Stellern Zusammenarbeiten können, muß man sich ämfi? einen einheit 
liehen Code festlegen. Es sind zwar mehrere Codevorschriften im 
Gaslauf, die verbreitetste ist jedoch der sogenannte ASCII-Code. 
Diese Abkürzung kommt von "American Standard Code for Information 
Ir . terchange” . (Amerikanischer Standardcode für Informationsaus 
tausch) Tabelle 3-1 gibt Ihnen 4inen Überblick über den ASCII- 
Dode . 


TABELLE 3-1. ASCII-CODE 


Dezimal Zeichen Dezimal 
wert wert 


Zeichen Dezimal- Zeichen 


0 NUL 4 7 

1 SOH 48 

2 STX 49 

3 ETX 50 

4 EOT 

5 ENQ 52 

6 ACK 52 

" J BEL 54 

8 BS 55 


94 

SS 

96 

97 

98 


99 c 

1 00 d 

101 e 

1 02 ‘ # 


1 03 
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9 

1 0 
s. 
12 
1 3 
1 4 

15 

16 

i m 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 
3C 

31 

32 

33 

34 

35 

36 

'M 

38 

39 
4Q 

41 

42 
43. 
44 

4 6 


TABELLE 3-1: ASCII-Code (Forts.) 


HT 56 

LF 

VT 58 

FF S9 

CR 60 

so ’Ä' 

SI 62 

DLE 63 

DC1 64 

DC2 65 

DC3 66 

DC4 67 

NAK 68 

SYN 69 

ETB 7« 

CAN 71 

EM 72 

SUB 7 # 

ESC 74 

FS 

GS 76 

RS 77 

US 78 

Leerz. 79 

j- 80 

II 81 

# 82 

$ 83 

% m 

& 85 

86 

( 87 


89 

90 

91 

92 

93 


8 

9 

: 105 

} jRpiii 

< j^.QA 

/jjioa 

> t 

? 110 

e 3l 1 T 

A 112 

B • 

C 

D 115 

E 116 

F Bk 

G ,fc^L18' 

H 119 

1 jSfel# 

J 1 21 

K 122 

L 123 

M 1 24 

N 125 

O 126 

P 127 

Q 

R 

S 

T 

U 

V 

w 

X 

Y 
Z 
[ 
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3 . 4 Formatierte Zahlen 

In diesem Kapital erfahren Sie, wie man das Aussehen von Zahlen 
Informationen beeinflussen kann, wodurch die Ergebnisse Ihres 
Computers lesbarer werden. Man nennt diesen Vorgang das Fpr 3 j 4 .Li.G- 
ren von Zahlen. 


3.4.1 Datenfelder 


Man kann für eine Zahl eine bestimmte Anzahl von Stellen auf dem 
Bildschirm oder auf dem Drucker vor sehen; man Sp,r : ich,fe diesem 

Zusammenhang von einem Datenfeld. FORTH Sichtet Zahlen in solchen 
Datenfeldern rechtsbündig^ aus. Das bedeutet, daß die letzte Zif 
fer der Zahl am SeeJSben Rand des Feldes 80 stehe® kommt . Wenn wijjf 
ein Datenfeld mit 10 Stellen haben, in das wir eine dreistellige 
positive Zahl schreiben lassen, dann erscheinen vor jäf.eser Zahl 7 
Leerstellen . 

.R - Mit dem FORTH-Wort .R können wir ein Datenfeld für die Zah 
lenausgabe festlegen. Das Wort benutzt; die obersten zwei Stack- 
Einträge. Sie werden entj^^int, wobei der erste Eintrag die Feld 
breite darstellt;, der zweite Eintrag die auszugebende Zahl ist. 
Die Stack-Relation sieht folgendermaßen aus: 


Wenn wir z.B. eingeben 


23 *0 7 10 .R .R (RETURN) (3-9) 


dann erhalten wir das Ergebnis aus der Abb. 3-3, wobei leere 
Kästchen in diesem Diagramm für Leerstellen stehen. Sowohl die 23 
als auch die 7 werden rechtsbündig in Datenfeldern ausgegeben, 
die jeweils eine Breite von |fi:. Stellen haben. Wir können natür 
lieh auch f'ü.r jede Zahl eine andere Feldbreite angeben. 
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‘I IM 'S: i'.'S f: i,tt i 


71 


I 2 | 3| 


ABBILDUNG 3-3: Zwei Integers in einem Datenfeld 

von je weil s IC Stellen Breite 


Durch die Angabe von Datehf eldera können, wi'r .idie Druckausgabe von 
Zahlen lesbarer gestalten. Die auszugebenden Daten werden natür 
lieh in den meisten Fällen erst vom Programm berechnet. Man weiß 
also nicht von vornherein, wie viele Stellen das Ergebnis haben 
wird. Deshalb kann es Vorkommen, daß ein Ergebnis größer ist, als 
die vorgesehene Feldbreite erlaubt. In diesem Fall vergrößert 
FORTH automatisch das Datenfeld, so daß die Zahl noch hineinpaßt. 
Beachten Sie, daß .R zur Zeit noch kein Teil von FORTH-79 ist. Es 
ist jedoch in MMSFORTH und anderen FORTH-Systemen enthalten. Las 
sen Sie uns als Beispie-J. ein eigenes Wort schreiben, das Zahlen 
in ein Datenfeld von 15 Stellen Breite ausgibt: 


:r .15 15 .R ; (.34®. 


Das Wort hat den Namen .15. Es pusht als erstes die 15 auf den 
Stack; ansdlttießend wird .R aufgerufen. fSÖpilJ wird die Zahl, die 
vor Aus Führung des Wortes .15 auf dem Stack war, in einem Daten 
feld der Breite 15 ausgegeben. 


3.4.2 Zahlenausgabe mit Maske 


Oft wollen wir beim Ausgeben von Zahlen noch andere Symbole mit 
in unsere Ausgabe aufnehmen. Bei Geldbeträgen kann es beispiels 
weise nötig seih, ein Dezimalkomma zu drucken. FORTH läßt auch 
diese Möglichkeit zu; man bedient sich dazu der sog. Ausgabemas- 
ken. Zum Einsatz dieser Möglichkeit brauchen wir jedoch mehrere 
Wörter. Diese werden wir im folgenden Abschnitt darstellen. 

Ehe wir uns der Erörterung von Ausgabemasken zuwenden, wollen wijf-- 
jedoch einen kurzen Exkurs machen iiüä ,-noch einmal über doppelt 
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genaue Zahlen reden; ö:ese Zahlen haben wir bereits in Abschnitt 
2-5 kennengelernt. Operationen mit diesem Zahlentyp werden wir in 
einem der : 'y£plgenden Kapitel besprechen. Hier erörtern nur 

einige grundlegende Fakten, die für den Umgang mit Ausgabemasken 
notwendig sind. Die elementaren Befehle für die Ausgabe mit Maske 
arbeiten nSfrii'i.dh nur mit doppelt genauen Integers . (Wir wollen 
für den Augenblick davon ausgehen, daß diese Zahlen alle positiv 
sind.) Wir hätten aber ganz gern auch einfach genaue :r.:.egors mit 
einer Druckmüske ausgegeben. Wir wollen einmal sehen, wie dies 
möglich ist. Eine einfach genaue Zahl benötigt - wie Sie bereits 
wisse#. - nur eine Stack-Positigii,, während Speicherung von 

doppelt genauen Zahlen zwei Stack-Einträge benötigt werden. Die 
sen Sachverhalt illustrieren wir in Abb. 3-4. Wie Sie sehen, ha 
ben wir den obersten Stack-Eintrag in Abb. 3-4b mit MSB be 
sc^^Jftet; diese Abkürzung steht für ’hSÖ'st sigÄ^Sikant biiS*?- S#d 
bezieht sich auf das höchstwertige Bit der Zahl. Entsprechend ist 
die zweite Stack-Position mit LSB (Abk. für "least signifikant 
bit", niedrigstwertiges Bit der Zahl) beschriftete» 

Bei der Arbeit, s ®(pS Dezimalaälnilen würden ifir anstelle .i?®# Siöchst 
wertigen und Niedrigstwertigen Bits von höchstwertigen ■'jiäst. hie 
drigstwertigen Dezimalstellen sprechet. Machen wir uns das am 
Beispiel der Dez : ma 1 zah . 356789 klar. Ihre drei höchstwertigen 

'jgif feira. sind 356, während ihre drei niedrigstwertigen 789 sind. 
Nehmen wir nun an, daß wir die dreistellige Zahl 789 mit 6 Steel 
len schreiben wollen. 

Wir wollen also die Ziffernfolge 000789 ausqeben. ;In diesem Fall 
haben wir eiSffe? Zahl, deren erste drei höchstwertige Stellen 0 
sind. Nun wollen wir sehen, wie wir eine einfach genaue positive 
Integer als oberstes Stack-Element in eine doppelt genaue umwan 
dejtt können. BJes geht ganz einfach dad^^Sh, daß wl r eine 0 aijjf 
den Stack pushen. Jetzt haben wir eine doppelt genaue Integer, 
deren höchstwertige Stellen allesamt 0 sind. Von ihrem Betrag her 
ist diese doppej$$$.; genaue Zahl natftteii.öti immer ,4j(#fch die gleiche 
wie die vorherige einfach genaue Zahl . Das gilt allerdings rtute^ 
wenn die Zahl positiv ist. 

Die meisten Computer verwenden nämlidh ein binäres Zahlensystem, 
bei dem das höchstwertige Bit (MSB) dazu dient mitzuteilen, ob 
die Zahl positiv oder negativ ist. Senf» wir jetzt bei einer nega 
tiven Zahl einfach 0 auf den Stack pushen, um sie doppelt genau 
zu machen, dann erhalten wir dadurch die falsche Zahl. Um mit 
Zahle# Zu arbeiten, die sowohl positiv als auch negativ sein kön- 
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I 1 

I I leinfach genaue. Zahl 

I * 

I 1 

I «§> 

I 1 

I ! 

I 1 

I . ! 

I . I 
I . I 
I I 


I 1 

I MSB 2® 

I 1 

I LSB •§ 

I 1 

I I 

I 1 

1 *«:!'. ’ 

I 1 

I . I 

• i 

4 : . i 

I ■$' 


doppelt genaue 
Zahl 


b) 


ABBILDUNG 


3 - 4 : Der Stack a) mit einer einfach genauen Zahl 

b) mit. einer doppelt genauen Zähl. 


nen, müssen wir deshalb das folgende allgemeine Verfahren anwen 
den. Zuerst duplizieren wiäf mittels DUP die einfach genaue Zahl 
auf den Stack. Dann ersetzen wir mittels ABS diese Zahl durch 
ihren Absolutbetrag. Wenn wir jetzt eine 0 auf den Stack pushen, 
dann haben wir den korrekten Absolutbetrag iii Form eijööar doppelt 
genauen Zahl. 'Jjfi'e ursprüngliche öi’hf aclj genaue Zahl befindet sich 
immer noch auf dem Stack, lind zwar an dritter Pos l.t.icr. . Wir,- 
nen sie dazu benutzen, das Vorzeichen der Ausgangszahl zu bestj^r 
men. Wie man diese Prozedur genau in FORTH implementiert, zeigen 
wir Ihnen noch später in diesem Abschnitt. Erst wollen wir uns 
einmal den Kommandos für die Ausgabe mit Maske zuwenden. 

<# und #> - Die FORTH-Kommandos <# und #> werden für die Ausgabe 
von Zahlen; mit Ausgabemaske verwendet . Ehe wir ihre Anwendung 
erörtern können, müssen wir jedoch noch ein paar andere Wörter 
eiafähren. Der Grundgedanke bei der Verwendung dieser beiden Wör 
ter ist jedoch ganz einfach. Eine Formatanweisung mit. diesen bei 
den Wörtern hat immer folgenden Aufbau: 


<# Foöftätfca'nweisungen #> 
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Bei Ausführung eines Befehls in dem Format aus Abb. 3-11 wird die 
doppelt genaue; Zahl an oberster Stack-Position; 'thÄ Stack ent 
lernt . Bie Formatanweisungen haben die Form einer Folge von* 
ASCII-Ze^öfien, eines sog. Zgi£hgn^_y^inc[_§ iI _ Jedes Zeichen dieses 
Strings stellt eine einzelne Äilftsr der auszugebende® i-Zahl odejfc 
ein anderes auszugebendes Zeichen dar. Nach. Ausführung einer 
Anweisung von der Form 3-11 finden sich die ASCII-Codes nicht auf 
dem Stack, sondern in aufeinanderfolgenden Speicherstellen des 
Arbeitsspeichers. Als letztes pusht ‘Äine Formatanweisung von der 
Form 3-i|. ..zwei eiÄfaöh genaue Integers aalT den Stack. Eine stellt 
die Startadresse dar, an der SlÄh die soeben gespeicherten ASCII- 
Zeichen befinden; die zweite gibt an, wie v j o 1 e Zeichen gespei 
chert sind (d.h*, die Anzahl der Zeichen, die gedruckt werden 
sollen). Letztere Zahl befindet sich an oberster Stack-Position. 
Die Stack-Relatjbii- eine Anweisung der Form 3-11 lautet daher 


n i n 2 * °addr "länge 

Dies gilt für einfach genaue Zahlen, wobei n^ die ursprüngliche 
einfach genaue Integer und £ gleich 0 ist. Bei doppelt genauen 
Zahlen sieht die Stack-Rela?ion so aus: 


d -> n 


addr lange 


(3-12b) 


Wenden wir uns nun wieder der Anwei#uÄ£jf’ 3-11 zu. ;S,iö Formatanwei 
sung .zwischen den beiden FORTH-Wörtern <# und #> werden yafi links 
nach rechts durchgegangen. Dabei gilt die erste ißl- String ent 
haltene Formatanweisung für die letzte Stell# der Zahl. Die zwei 
te Formatanweisung bezieht sich auf die vorletzte Stej3/*S usw. 
(Die Formatanweisungen müssen sich nicht notwendigerweise MBS auf 
Stellen in der auszugebenden Zahl beziehen. Wir können auch ande 
re Symbole, wie z.B. ein Dezimalkomma, mit au '(nehmen . ) Jetzt müs 
sen wir nur noch erfahren, welche FORTH-Kommandos innerhalb die 
so r Forinatar.we : sur.cer. stehen könnet: . 

# - Kfif dem # manipulieren wir einzelne Stellet. «ra 1 einer Zahl. 

Bei Ausführung einer Anweisung wie in 3-1 1 wird ja eine doppelt 

genaue IntegeäR $$$ oberster Stack-Position, -..jetztendlich'',^! eine 
Folge von ASCII-Zeichen umgewandelt, wobei je ein ASCII-Zeichen 
:ftür eine Ziffer 'steht. (Wenn FORTH im Dezimalsystem arbeitet. 
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dann handelt es sich hierbei um Dezimalziffern. Haben wir Basis 
16t'ip-ttels HEX gewählt, dann sind es Hexade z imalds&ff 6*j» usw.) Für 
die vorliegende Ölskussidi» wollen wia? annehmen, daß es s$ü§p um 
Dezimalzahlen handelt, “Das Wort # (das nur zwischen <# und #> 
stehen kann) »Älstert die jäiedrigstwe-rtiCfe Dezimalstelle und ent 
;£ei#1} sie yq® der Zahl. Avftfö die Tatsache, daß die Zahlen IsSpctern 
im Binärsystem gespeichert sind, soll uns hier nicht stören. 
Anschließend wird das ASCII— Zeichen für diese Stelle im Arbeits 
Speicher abgelegt. Wir können das Wort # nur zusammen mit posj&B|, 
veis Zahlen verwenden. (Vergleichen Sie die Ausführungen über 
negative Zahlen am Anfang dieses Abschnitts.) 'Denken Sie daran, 
daß bei jeder Ausführung eines #-Wortes eine Dezimalste!:!,#-' von 
der Zahl entfernt wird. 

#S - Das FORTH-Wort #S wandelt eine doppelis genaue Zahl in eine 
Folge von ASCII-Zeichen um. Jedes dieser Zeichen stellt eine 
Dezimalstelle dieser Zahl dar. Auch #S sollte nur mit doppelt 
genauen positiven Integers verwendet werden. Ist die Zahl 0, dann 
wird iMjifc; eine einzelne Null (als ausgegeben. Ebenso wie 

bei # darf auch #S nur zwischen den Wörtern <# und #> stehen. 
Beachten Sie, daß # nur eine einzige Dezimalstelle umwandelt, 
während #S die ganze verbleibende Zahl in die entsprechende Folge 
von ASCII-Zeichen konvertiert. 

HOLD - Mit dem FORTH-Kommando HOLD können wir den ASCII-Code ei 
nes beliebigen Symbols jj£., den St ring: vph ASCII-Zeichen 'tffjfc 
nehmen, der unsere Zahl darstellt. HOLD entfernt die oberste ein 
fach genaue Integef; . Stack und nimmt das entsprechende Zeichen 
der ASCII-Tabell^i in den Zeichenstring mit auf,' Sie Stack-Rela 
/%iipn des Wortes ! autet. : 


(3-13) 


Beachten Sie, daß auch HOLD il%f zwischen den Wörtern ’S# und #> 
stehen kann. 

Als Beispiel für die bisher yorgestellten FORTH-Wörter wollen 
ein neues Wort definieren, das eine einfach genaue, positive Inte 
ger so ausgibt, daß ein Dezimalkomma vor den letzten beiden Stel 
len der Zahl steht. Das Einfügen eines Dezimalkommas kann aus 
mehreren Gründen erwünscht sein. Wenn Sie z.B. Programme schrei 
ben, die mit Geldbeträgen umgehen, dann werden Sie die Mark- und 
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Pfennigbeträge kenntlich machen wollen. Da wir bisher nur mit 
Integers arbeiten können, fegftnen wir in unseren •JJ’rogrammeh aucl|> 
keine Zahlen mit Nachkommasteilen eingeben. Wir- 'Rüssen dfetift den- 
Betrag 34,50 DM als die Zahl 3450 eingeben und intern verarbei 
ten. Bieip/^Ausgeben der Geldbeträge sollte das Dezimalkomma jedoch 
wieder erscheinen. Unser selbstdefiniertes Wort leistet genau das 
Gewünschte: Es gibt eine Zahl aus, wobei sich vor den letzten 

beiden Stellen der Zahl ein Dezimalkomma befindet. Seine Defini 


: WRD 0 <# # # 44 HOLD #S #> ; (3-14) 


Sehen wir uns das neu# Wort WRD einmal genauer an. Wir gehen da 
von aus, daß -sich feine einfach genaue Integer?* %n oberster Stack- 
Position befindet. Deshalb pushen wir erst einmal die 0 auf den 
Stack, um daraus feine doppelt genaue Integer mit demselben Betrag 
zu machen (erinnern Sie sich noch?) . Jetzt kommen die Befehle an 
die Reihe, die zwischen <# und #> liegen. Das erste Cent fer'nt die 
niedrigstwertige Dezimalstelle von unserer doppelt genauen Zahl 
aut‘ ; dem. Stack. titMHBHi wird das ASCII-Zeichen gertferiert, das 
dieser Zahl entspricht, und im Speicher abgelegt. Das zweite # 
sorgt für dieselbe Prozedur mit der niedrigstwertigen Dezimal 
stelle der verbleibenden Zahl. Als nächstes legen wir die Zahl 44 
auf den 8|.ack. HOLD entferfefe sie wieder und sorgt dafJÜSy daß iin 
StjüUg der ASCII-Zeichen feine 44 mit abgespeichert wird. Der 
ASCII-Tabelle können Sie entnehmen, daß die 44 der interne Code 
für das Komma ist,,. 

Wir haben also jetzt iit -jinsereh E r qcbni SSt r i r.g das Dezimalkditeife 
geschrieben. Als nächster Befehl ifet #S an der Reihe. 'Dieses Wort 
wandelt - die ganze verbleibende doppelt genaue Zahl in einen 
String von ASCII-Zeichen um, eins für jede Dezimalstelle. Nach 
Ausführung von #> steht also den Jöjmfälette Stpäpfg im Arbeitsspei 
eher. Außerdem haben wir ein Dezimalkomma vor die beiden letzten 
Stellen der Zahl eingefügt. Die Origtnfelzahl ist vom Stack ver 
schwunden. An ihrer Stelle sind zwei nfeufe Zahlen auf den Stack 
gekommen. Diese stellen die Startadresse des Ergebr. i s strings im 
Arbeitsspeicher dar, den wir eben erzeugt haben; die zweite Zahl 
gibt an, wieviele Zeichen dieser String enthält. Das Ergebnis 
steht aber nach wie ig|n Arbeitsspeicher, ist aber feocfi nicjlt 

zu sehen. Dafür - für die Anzeige einen, mit Formatmaske erzeugten 
Ziffernstrings - benötigen wir noch ein eigenes Kommando. 



3 Elementare Ein- und Ausgabeoperationen 


TYPE - ifjBjp dem. FORTH-Wort TYPE werden ASCII-Zeichen ausgegeben, 
die im Arbeitsspeicher des Computers gespeichert sind. TYPE sorgt 
daf&r, daß diese Zeichen am Ausgabegerät (dem Terminal oder dem 
Drucke r ) erscheinen. Dazu entferfitj es zwei Zahlen vom Stack. Deht 
oberste Stack-Eintrag gibt an, wievielte ' Zeichen TYPE an das Aus 
gabegerät übertragen soll. Die zweite Zahl auf dem Stack stellt 
die Anfangsadresse dar, ab der s i ch der auszugebende Str:i ng im 
Arbeitsspeicher' des Computers befindet. Die Stack-Relation 
TYPE lautet: 


n. . . -> (3-15) 

aÖär lange 

Wir können jetzt, unser Programm 3-14 so verändern, daß es sein 
Ergebnis auch noch auf dem Bildschirm ausgibt. Dazu ändern wir 
lediglich den Namen der Def;i^|| : t)i(OÄ und 'fügen das zusätzliche Wort 
TYPE mit an: 


: WRTT Ö <# # # 44 HOLD #S #> TYPE ; 


(Streng genommen^ es gar hhäht nötig, der Dejcd>$itl03i eine# 

neuen Namen zu geben.) Nachdem FORTH die neue Definition 3-16 
compiliert hat, können wir eingeben: 


15756 WRTT (RETURN) 


(3-17) 


und erhalten als Ausgabe auf unserem Bildschirm: 

157,56 ofc 

SIGN - Die bisher geschriebenen Programme funktionieren nur mit 
positiven Zahlen:, Jetzt wollen wir einmal sehen, wie wir Zahlet - 
ausgeben können, die sowohl positiv als auch negativ sein können. 
Das FORTH-Wort SIGN, das nur zwischen den Wörtern <# und #> ste 
hen kann, erzeugt den ASCII-Code für ein Minuszeichen und nimmt 
ihn in den ASCT : -String mit swjf, falls die Zahl än der oberste^- 
Stack-Poaihibh negativ- ist. sie hingegen positiv, dann tut 

SIGN .nichts. Jetzt können wir e&jJJ Prbghamffi schreiben, das ebenso 
wie die bisherigen e i ne Zahl mit Dezimalkomma ausgibt, zusätzlich 
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aber noch ein Minuszeichen vor die Zahl stellt, falls diese nega 


: WRTTN DUP ABS 0 <# # # 44 HOLD #S 

ROT SIGN #> TYPE ; (3-18) 


Sehen wiji'huns das neue Wort einmal genauer an. DUP dujsiiz : i.'4rt die 
auszugebende Zahl. Als nächstes wird die Zahl mittels ABS durch 
'J|ren Absolutwert ersetzt. Wir haben jelf|il| den Betrag der Origi 
nalzahl an oberster Stack-Position, falls die Original zahl nega 
tiv war, und ansonsten die unveränderte Originalzahl. Dann machen 
wir aus dieser Zahl durch pushen ^on 0 eine doppelt genaue Zahl . 
Als nächstes sehen wir den Befehl <# . Dieser leitet die Verarbei 
tung der doppelt genauen Zahl an oberster Stack-Position ein. Die 
Befehlsfolge # #44 HOLD #S wandelt diese Zahl ebenso wie das 

bereits bekannte Beispiel 3~T6.. - 40 . eijse Folge von ASCli-Zeichen: 
um. Die 0 und der Absolutwert der eingesetzten Zahl befinden sich 
immer noch auf dem Stack. Jetzt kommt der Befehl ROT an die Rei 
he. Wie Sie sehen, können also auch "normale? FORTH-Wörter zwi 
sehen <# u ; h:<3- #> Stehen. Dadurch der dritte: 'Stack-Eintrag ah 

die oberste Stelle gebracht . Dabei handelt es siöh aber um die 
Originalzahl, die ausgegeben werden soll. SIGN entfernt diese 
Zahl vom Stack. Falls sie negativ ist, dann fügt das Wort SIGN 

den ASCII-Code für das Minuszeichen vor den Ergebnisstri'®i|j ein. 
ist die- .fragliche Zahl dann hat SIGN keini-erle*' -%uswir 

kung. D.ie Umwandlung der Zahl wird wie üblidh mit #> abgeschlos 
sen. Jetzt befinden sich Startadresse und String-Länge $.■$£ dem 
Stack. TYPE holt sich diese beiden Einträge und sorgt dafür, dal: 

die angegebene Anzahl von Zeichen ab der zur Verfügung gestellten 
Startadresse auf dem Bildschirm ausgegeben wird. Die Befehld 
zwischen <# und <# werden also - wie üblich - von links nach 

rechts abgearbeitet. Das erste ausgeführte Wort ist also #, wäh 
rend das letzte SIGN ist. Das Kommando TYPE gibt den erzeugten 

StriHg in umgek^Stfcer Reihenfolge aus: das Ergebnis des zuletzt 

ausgeführten Befehls wird als erstes gedruckt. Deswegen bewirkt 
das Wort SIGN, welches das 'Setzte Kommando zwischen <# und #> 

' daß ein Minuszeichen Vor die Zahl gedruckt wird, #©fäusge 
setzt, diese ist negativ. 

Als letztes Beispiel wollen wir (3-18) so verändern, daß die Zahl 
mit e : nem Dollarzeichen nach dem Vorzeichen ausgegeben wird. Das 
veränderte Wort sieht nunmehr folgendermaßen aus: 
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WRT$ BfS' ABS 0 <# # # 44 HOLD #S 

36 HOLD ROT SIGN #> TYPE f (3—19) 


Im wesentlichen handelt es sich hierbei um die gleiche Definition 
wie in (3-18), außer daß der Befehl 36 HOLD : hf JS^ugekommen ist. 
Wie Sie der ASCII-Tabelle entnehmen können, ist die Code-Zahl des 
Dollarzeichens 36. Deshalb wird das ASCII-Zeichen in die Zeichen 
kette mit aufgenommen und taucht dort vor dem Minuszeichen auf. 


3 . 5 Übungsaufgaben 


ÜberpifÜPen Sie bei den:.-f§ijlgenden Aufgaben alle Programme und 

selbstdefinierten Wörter, indem Sie sie auf Ihrem Computer laufen 

lassen . 

3-1 Was bedeutet der Begriff "Text"? 

3-2 Schreiben Sie e||Jj FORTH-Wort, das Ihre Ansc$p|j& auf dem 

Bildschirm ausdruckt. 

3-3 Schreiben Sie ein FORTH-Wort, das den Durchschnitt von # 

Zahlen berechnet. Das Wort soll den Benutzer zur Eingabe der 
Werte auffordern und anschließend warten, bis der Benutzer 
sie zur Verfügung gestefj# hat. Quotient und Divisipnsrest 
des Durchschnitts sollen dann mit entsprechenden Erklärungen 
auf dem Bildschirm ausgegeben werden. 

3-4 Ändern Sie die Definition von Aufgaben 3-3 so ab, daß die. 

Bereitschaftsmeldung "ok" nicht ausgegeben wird. 

3-5 Ändern Sie die Definition vqü Aufgabe 3-4 so ab, daß Quo 

tient und Divisionsrest auf verschiedenen Zeilen ausgegeben 
werden . 

3-6 Ändern 'Sie mittels SPACES :die Definition von Aufgabe 3-5 so, 
daß genügend Zw i sc her. raum zwischen den Ergebnissen steht. 

3-7 Wiederholen Iji#? Aufgabe 3-äy. und senden Sie das Ergebnis 
direkt an Ihren Ete-ufcker. 
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are EiÄ? 


3-8 

Wiederholen Sie Aufgabe 
direkt an Ihren Drucker. 

3-3, 

und senden 

Sie 

dasErgebnis 

3-9 

Wiederholen Sie' Aufgabe 
direkt an Ihren Drucker . 

3-4, 

und senden 

Sie 

dasErgebnis 

3-10 

Wiederholen Sie Aufgabe 
direkt an Ihren Drucker. 

3-5, 

und senden 

Sie 

dasErgebnis 

3M3LX 

Wiederholen Sie Aufgabe 

3-6, 

und senden 

Sie 

dasErgebnis 


direkt an Ihren Drucker. 

-3-3.2 Was 4ft ein ASCII-Code? 

3-13 Schreiben S i@ : -eine Tabelle mit den ASCII-Codes für die 
Steuerzeichen . 

3-14 Angenommen, der ASCII-Code eines Großbuchstabens befindet 
sich an oberster Stack-Position. Schreiben Sie ei^ .IFORTH- 
Worfc, das diese Zahl den ASCII-Code für einen entspre 

chenden Kleihöüchstaben umwandelt . 

3-15 Wiederholen Sie Aufgabe 3-14, wandeln Sie diesmal jedoch 
.einen Kleinbuchstaben in einen entsprechenden Großbuchstaben 


3-16 Was ist ein ;|^J:enfeld? 

3-17 Schreiben Sie ein FORTH-Wort, das die beiden obersten Stack 
einträge ausgibt. Die Zahl an oberster Stack-Position sollte 
in einem Feld von 15 Zeichen Breite recht sbülidig erscheinen. 
Die zweite Zahl soll rechtsbündig in einem 25 Zeichen brei 
ten Feld stehen. 

3-18 Ercrterh Sie das Prinz i p der Zählenausgabe Ääske . 

3-19 Legen Sie dar, wie man eine positive einfach genaue Integer 
• SÄ -eine entsprechende doppelt genaue lÄfieger umwandeln kann. 

3-20 Schreiben Sie ein FORTH-Wort, das eine fünfstellige Zahl mit 
einer Leerstelle nach den ersten zwei Ziffern druckt. Die 
Zahl soll positiv sein. 
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3-21 Schreiben Sie ein FORTH-Wort, das eine fünfstellige Zahl mit 
der Beschriftung "DM" nach den ersten drei und mit "P f'ennig" 
nach den letzten beiden Stellen ausgibt .y-ßMijsr. Zahl soll 

3-22 Kann man eine negative einfach genaue Integer in eine dop 

pelt genaue Integer verwandeln, indem man eine 0. auf den 
Stack pusht? 

3-2.3 Wiederholen »Sie Aufgabe 3-20, gehen Sie diesmal aber nicht 

davon aus, daß die Zahl positiv- ist. Wenn sie negativ ist, 
dann sollten Sie ein Minuszeichen vor die Zahl drucken. 

3-24 Wiederholen Sie Aufgabe 3-21, gehen Sie aber nicht davon 

aus, daß die Zahl positiv ist. Wenn sie negativ ist, dann 

sollten Sie ein Minuszeichen vor die Zahl drucken. 

3-25 S i ece rhcl er. Sic Aufgabe 3-20, schicken Sie das Ergebnis aber 
direkt an den Drucker. 

3-26 Wiederholen Sie Aufgabe 3-21, schicken Sie das Ergebnis aber 
direkt an den Drucker. 
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4 Programmsteuerung - Strukturiertes Programmieren 


Die bisher betrachteten FORTH-Programme haben einfach einzelne 
Wörter der Reihe nach ausgeführt. Wesentlich leistungsfähigere 
Programme kann man schreiben, wenn es möglich ist, in einem Pro 
gramm verschiedene Zweige zu verfolgen. Bei solchen Programmen 
entscheidet der Computer aufgrund eines Entscheittöngsprozesses 
selbst, welcher Zweig im Programm verfolgt werden soll. Diesen 
F.ntsche i aur-.gsprozcß können Sie ist- 'JJpjröS Programm bestimmen. 0:ie 
E nasche : dun g kann etwa davon abhängen, ob eine Zahl pos l.t.iv oder 
negatis? ist. Möglichkeiten, mit denen solche Verzweigungen er 
reicht werden können, betrachten wir diesem Kapitel. 

es asBch wünschenswert, daß ein Programm eine Folge 
Arbeitsschritten wiederholt ausfuhrt (sog. Programmschleife) . Die 
Techniken, die dies bewirken, werden Wir ebenfalls Uforliegen 
den Kap : tel kennenlernen. 

Schließlich gibt es noöh Methoden zur Programmierung, die Pro 
gramme mit Verzweigungen und Schleifen weniger fehleranfällig und 
leichter korrigierbar machen. Die hierzu eingesetzte Methode 
trägt den Namen "Strukturierte Programmierung" und wird ebenfalls 
Gegenstand dieses Kap i teis sein. 


4 . 1 Logische Bedingungen 


In FORTH werden - ebenso wie jö| anderen Programmiersprachen - 
Entscheidungen in Abhängigkeit davon getroffen*, ob eine Variable 
den Wert "wahr" oder "falsch" hat. Wir können beispielsweise 
überprüfen, ob die oberste Zahl auf dem Stack positiv ist. Nach 
dieser Überprüfung wird die Zahl vom Stack entfernt, und darauf 
entweder eine Eins abgelegt, falls die Zahl positiv war, oder ;;m 
Falle eines- negativen Eintrags eine Null, Diese Eins bzw. Null 
bezeichnet man auch als Flag ■ Die Eins steht für den Wahrheits 
wert "wahr", während die Nüll "falsch" darstellt. Die Flag-Werte 
0 und 1 sind gewöhnliche einfach genaue Integers. Es gibt also 
keine Möglichkeit, den Flag-Wert 1 von einer Jliiis zg -iSÄterschei 
4erf, die Sie atäp?',' dem Stack abgelegt haben. Spätere Abschnitte 
dieses Kapitels werden sich der Frage widmen, wie man in einem 
Programm Verzweigungen veranlassen kann, j:ö nachdem, welchen Wert 
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ein Flag an oberster Stack-Position hat. Dieser Abschnitt führt 
erst -einmal die FORTH-Wörter ein, die '.iSpÄl -solche Vergleiche benö 
.ti.qt werden, die als Ergebnisse Flags auf den Stack pushen’. 

0= - Das FORTH-Wort 0= überprüft auf Gleichheit, mit 0. Daz|fe 

entfernt es den obersten Stack-Eintrag und legt statt dessen ein 
Flag darauf ab. Dieses besitzt den Wert 1, falls die Test zahl 
gleich Null war .!»*$§& allen anderen Fällen, d.h. , wep|); zuvor keine 
Null dem Stack war, hat das Flag den Wert; Hier die Stack- 

Re at i on : 


Das Flag ist "wahr", I s n = 0. Denken Sie daran, daß das Flag 

nichts anderes als eine einfach genaue Integer ist. Der Zahlen 
wert 0 steht dabei für den Wahrheitswert "falsch", während 1 für 
"währ" steht . IJm Rest des Buches werden wir deshalb ein.f-ecsb sa 
gen, daß ein Flag "wahr" oder "falsch" ist-, Abbildung 4-1 zeigt 
ein Stack-Diagramm vor und nach Ausführung von 0= . Wie Sie sehen, 
wurde der oberste Stack-Eintrag, der ungleich it. ist, entfernt und 
statt dessen eine 0 (für "falsch") auf den Stack gepusht. 


I 1 

;Vj Ä. 

I 1 

115 I 

I 1 

I 8 I 
I 1 

jjp — 1 

i , i 
i . i 
i . i 
i i 



i 1 


b) 


ABBILDUNG 4-1: a) Typischer Stack-Zustand; 

b) der Stack nach Ausführung von 0=. 
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0< - pas FORTH-Wort 0< überprüft, ob der oberste StackeinL rag 

kleiner als 0 ist. Es entfernt diesen obersten Eintrag vom Stack 
und ersetzt ihn durch ein Flag, das "wahr" ist, wenn die zuvor 
auf dem Stack befindliche Zahl kleiner Null ist; war sie gleich 
oder größer als Null, dann wird das Flag "falsch". Die Stack- 
Relation 'Sieht folgendermaßen aus: 


Das Flag wird nur dann "wahr" , wenn n kleiner ist. Beachten- 

Sie die Ähnlichkeit in der Funktionsweise von 0= und Q<, 

0> - Auch das FORTH-Wort 0> entfernt die oberste Zahl vom Stack 

und legt statt dessen dort ein Flag ab. Dieses ist "wahr", wenn 
die Testzahl positiv war. Ist die Zahl Jileiner oder gleich Null, 
dann wird das Flag "falsch" • : äN§e Stack-Relation sieht folgender 
maßen aus: 


Das Flag wird nur "wahr", weaf, n größer Null ist; ih; allen ande 
ren Fällen ist es "falsch". 

Als Beispiel wollen wir jetzt sin eigenes FORTH-Wort schreiben, 
das die oberste Zahl vom Stack entfernt und durch ein Flag er 
setzt. Bisses soll "wahr" sein, wenrt d : o Testzahl kleiner oder 
gleich Null war und in allen anderen Fällen "falsch". Man kann 
dies durch folgende Definition erreichen: 


: KGN DUP 0< SWAP 0= + Ö> ; 


Die Definition trägt den Namen KGN ("kleiner/gleieü Null") . : |jfi 
ihr werden zwei Vergleichsbefehle eingesetzt. Als erstes dupli 
zieren wir did : fragliche Zahl. Baöh wird das Wort 0< aufgelegten . 
Dieses legt eine 1 auf den Stack, falls die Or igir.a ; zah ; kleiner 
Null war, andernfalls ist ihr Ergebnis Null. Das nächste Wort, 
SWAP, bringt diiä Originalzahl wieder an oberste Stack-Posgteion . 
Daraufhin wird 0= ausgeführt. Jetzt befindet sich eine 1 auf dem 
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4 . 2 Bedingte Verzweigungen 


Wie werden jetzt erörtert wie die Entscheidungsbefehle aus dem 
letzten Abschnitt dazu dienen können, in einem Programm Verzwei 
gungen zu steuern. Dadurch wird unsere Programmierf ähigkeit be 
trächtJ-Ach gesteigert . 

IF und THEN - In FORTH gibt es zwei Kommandos, die für die Ver 
zwo i aur.g j|n Programmen grundlegend sind. Sie lauten IF sowie 
THEN. h-n|.e beiden Wörter treten immer zusammen auf. Sie haben die 
allgemeine Form: 


IF anweisungen a THEN anweisungen b 


(4-9) 


Die beiden Wörteh Sunktionierem folgendermaßen : Bei Ausführung 

von IF Äajd die oberste Zahl vom Stack entfernt und als Flag be 
trachtet. Falls (englisch "if") das Flag "wahr" ist,, dann werden 
•die "an.we Ls ungen a" ausgeführt, iSie- hinter dem Wort IF folgen. 
Als nächstes werden die "anweisungen b" ausge führt . War das zuvof 
auf dem Stack befindliche Flag jedoch falsch, dann werden die 
‘'anweisungen a" übergangen u nd es kommt nur zur Ausführung der 
"anweisungen b" . Beachten Sie, daß das Flag (die Bedingung) vor 
■dem IF kommen muß . Diese Regelung steht im Einklang mit der üb 
Lichen umgekehrten polnischen Nouauion, entspricht aber tiieht dem 
Umgangssprachliehen Gebrauch des "wenn ... dann" . Das Wort IF ent 
fernt das Flag vom Stack; ist, es "wahr", dann wird der Programm 
zweig zwischen den Wörtern IF und. THEN begangen. Bei einem "fal 
sehen" Flag werden diese BeftSäftle übergangen, und ' . ‘ der Pro 

grammteil hinter THEN gelangt zur Ausführung. Beachten Sie., daß 
•die auf THEN folgenden Wörter also in jedem Fall ausgeführt wer 

Wir wollen einmal ein Beispiel für ein FORTH-Wort analysieren, 

■das zwei Programmzweige enthält. Das Wort vergleicht zwei Zahlen 
auf dem Stack. Sind sie gleich, dann gibt es die Meldung aus: 

"Die Zahlen, feind gleich" . Bei Ungleichheit der Zahlen meldet das 
Programm jedoch: "Die Differenz lautet*' und gibt daraufhin die 

Differenz der beiden Zahlen aus. Wir erreichen dies durch die 
Definition in Abbildung 4-3. 
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0 ( Eine einfache Programmverzweigung ) 

1 : CHECKEQ ' $$$£ 

2 IF Die Zahlen sind gleich " 2DR0P QUIT 

3 THEN - Die Differenz lautöfe " . 

4 

6 

T 

8 

9 

1 0 

1 2 

: l. Ü 

1 4 
1 5 

ABBILDUNG 4-3:: Eito «iitfaehes Beispiel für Programmverzweigungeis- 


Zeile 1 dieses Programms definiert den Namen des neuen Wortes, 
nämlich CHECKEQ. Da unter Umständen zwei Operationen mit den 
fraglichen Integers erforderlich sind, duplizieren wir sie beide 
nittels 2DUP. Als nächstes wird das oberste Zah : enpaaf Vöffi Stack 
entfernt und mittels = verglichen. Sind die Zahlen gleich, dann 
wird ein Flag mit dem Wert "wahr" auf den Stack gepusht. Anson 
sten ist das Flag "falsch". Jetzt kommt das Wort IF an die Reihe. 
Es entfernt das Flag an oberster Stack-Position. Im Falt,'« eines 
"wahren" Flags werden dann die Wörter zwischen IF und THEN ausge 
führt fc-ilpies führt dazüy daß die Meldung "Die Zahlen sind gleich" 
ausgegeben Swird. D« pH:. Folgenden der -Stack flieht sehr- benötigt 
wird, führen wir das Kommando 2 DROP aus, um ihn zu bereinigen. 
Anschließend kommt der Befehl QUIT an die Reihe, wodurch das Wort,, 
/erlässeij. und die Kontrolle wieder äh Terminal übergeben 

wird. Wie Sie sehen,- kann also das Wort QUIT durchaus Bestandteil 
eines Programmzweigs sein. Wenn in unserem selbstdefinierten Wort 
der Programmzweig mit dem QUIT ausgeführt wird, darin gelangen die 
Prögrammschritte Jfihter THEN nicht zur Ausführung. Beachten Sie 
aber, daß «in Aufruf von CHECKEQ aus einem anderen FORTH-Wort 
-feraus in diesem Fall dazu führt, daß alle Berechnungen durch 
QUIT abgebrochen werden und nicht ri|Li das Wort CHECKEQ verlassen 
wird. Sie müssen also beim Umgang mit QUIT sehr vorsichtig sein. 
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Schüler: fällt durch" ausgegeben. Ist die Punktzahl größer oder 
gleich 60, dann erscheint statt dessen "Der Schüler besteht". In 
beiden Fällen wird jedoch die Differenz zwischen der erreichter! 
Punktzahl und der maximalen Punkt'/.ah 1 von Hundert zusammen mit 
einer erklärenden Meldung ausgegeben. 


:0 ( Einfache Bewerfeüfig durch Verzweigung ) 

1 : NOTEN . « Schueler " 60 - 0< 

2 IF . " f'aelit durch " ELSE . " besteht " 

3 THEN 40 - NEGATE ." erst mit " 

4 . " weiterer! Müßten Bist du perfekt ! " ; 

6 

7 

8 

9 

1 0 
11 
1 2 

1 3 
1 4 
1 5 

ABBILDUNG 4-4: Ein einfaches Beispiel für bedingte Verzweigungen 


Sehen wir uns das Wort NOTEN in allen Einzelheiten an (vgl. Abb. 

4-4) . In Zeile 1 wird zuerst einmal der Text "Der Schüler" ausge 
geben. Daraufhin pushen wir die Zahl 60 auf den Stack. Das Wort - 
sorgt nun dafür, daß die Punktzahl des Schülers, vermindert um 
den Wert 60, als neues oberstes Stack-Element gegeben ist. Ist 
diese Zahl negativ, dann ist der Schüler durchgefallen. Da wir 
diese Zahl zweimal brauchen, duplizieren wir sie jedoch zuerst 
mit DUP . Dann wird der Vergleich mit 0< ausgeführt. Die oberste 
Zahl auf dem Stack, also die ISjgfcfcisahl des Schülers minus 60, 
wird von diesem entfernt; -and durch ein, Flag ersetzt . ilieses hat 
den Wert "wahr", wenn die Ausgangszahl kleiner Null ist oder, 
anders gesagt, wenn der Schüler weniger als 60 Punkte erreicht 
hatte. Als nächstes stoßen wir auf den Befehl IF. Dieser entfernt; 
das Flag vom Stack. - 'Ist es "falsch", dann wird die Meldung "fällt 
durch" ausgegeben. Außerdem werden die Anweisungen zwischen ELSE 
und TUEN übergangen. Wenn andererseits das Flag -'falsch" ist, 
dann ignoriert FORTH die Wörter zwischen IF und ELSE und gibt 
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somit Meldutsgf. "besteht" aus. Jetsät haben als oberstes® 

.'Eintrag auiffi dem Stack wieder die Ausgangs zahl (Pu^Sjzahl des 
Schülers minus 60). Das kommt von der DUP-Anweisung in 7,e Lie 1. 
Jetzt legen wir eint 40 auf den Stack und führen den Befehl - 

aus. Dieser ersetzt in bereits bekannter Weise die beiden Zahlen 
durt®" ipre Differenz. Das neue oberste Stack-Element ist 
die Punktzahl des Schülers minus 100. D«: es steh dabei um eine 

negative Zahl (oder die Null) handelt^, drehen wir deren Vorzei 

chen mittels NEGATE um. Damit. die Zahl %0ß dem Stack posi 

tiv. Dies ist die Zahl, die man auf die ursprüngliche Punktzahl 
des Schülers addieren muß, um IO® Ijßjfc*' erhalten. Angenommen, es 
handelijisich dabei um eine In diesem Fall sorgt das restliche 

Programm dafür, daß die Meldung "Erst mit 1® weiteren Punkten 

bist du perfekt" ausgegeben wird. 


4.2.1 Verschachtelte Kontrollstrukturen 


Wie wir gesehen haben, lassen sieh, in einem Programm über die 
Befehlsfolge IF-ELSE-THEN zwei Zweige einführen, einer zwischen 
IF und ELSE, der andere zwischen ELSE und TUEN. Innerhalb eines 
solchen Programmzweigs kann nun eine weitere Verzweigung statt 
‘landen . 'Biese Art Jteogrammstruktur bezeichnet man mit dem F|wäh 
ausdruck verschachtelte Kontrollstruktur . Den Einsatz vc rschach 
telter Kontrollstrukturen wollen wir an einem FORTH-Wort illu 
strieren, das der Punktzahl von Schülern die entsprechende Bewer 
tung zuordhet. Das Programm erwartet, daß sich die Punktzahl als 
oberster- (g^pfcrag aiSJhdem Stack be findet . wird das neue Wort 

BENOTUNG ausgeführt. Bei einer Punktzahl von unter 60 gibt dieses 
Wort die Meldung aus: "NOTE: DURCHGEFALLEN " . Bei einer Leistung 

Vfis-n mehr als 60 und weniger als 70 Punkten gibt es die Meldung 
aus: "NOTE: VIER"; zwischen 70 und 80 Punkten wird ausgegeben: 

"NOTE : DREI" . Bei einer P-gföifetzahl zwischen 80 .ijftd 90 erschein)#® 
die Wörter "NOTE: ZWEI" und zwischen 90 und 100: "NOTE: EINS". 

Das zugehörige Programm sehen Sie in Abbildung 4-5. Das neu de 
finierte Wort trägt den Namen BENOTUNG. Zeile 1 gibt zuerst ein 
mal den Text "NOTE:" aus. Als nächstes wird eine 60 auf dem Stack 
abgelegt ufcd, Jafhtels - Vdn: der PihMgskiahl des Schülers sichre 

Der oberste Stack-Eintrag stellt nunmehr also die Punkt 
zahl des Schülers weniger 60 dar. Diese Zahl duplizieren wir 
Ifllittels DUP . Als nädhhies stellen wir den Vergleich 0< an. 
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Verschachtelte Kontrollstrukturen ) 

BENOTUNG NOTE: " 60 - DUP Q:< 

IF . " DURCHGEFALLEN " DROP 
ELSE 10 - DUP 0< IF 
. " VIER " DROP 

ELgB'. $$ - DUP 0< IF . " DREI " DROP 

ELSE 10 - ö-%.‘ IF ZWEI’ " 

ELSE EINS " THEN 

THEN 

THEN 

THEN ; 


ABBILDUNG 4-5: Ein FORTH-Wort mit verschachtelten 

Kontrollstrukturen 


das Flag, das dieser Vergleich als Ergebnis: aßif dem Stack 
hinterläßt, "wahr" ist, dann bedeutet dies, daß die Punktzahl des 
Schülers schlechter als 60 sein muß. In diesem Fall geben wir die 
Meldung "DURCHGEFALLEN" aus. Es werden nun alle Anweisungen zwi 
sehen ELSE unj$ THEN ignoriert. Bei diesem tunkt müssen w£;jf. beson 
ders vorsichtig sein. Der Zweig zwischen ELSE und THEN enthält 
nämlich ein weiteres Vorkommnis von IF . Wir haben also den Fall, 
daß innerhalb einer Programmverzweigung eine weitere Programmver 
zweigung eingebettet ist:.* Jedes IF innerhalb einer solchen ge 
schachtelten Konstruktion bezieht sich auf eine ganz bestimmte 
ELSE— und— THEN-Folge . Wir müssen die zusammengehörigen IF-, ELSE- 
und THEN-Befehle sorgfältig zusammen gruppieren, ©äästi kann man 
sich des folgenden Verfahrens bedienen. 

Als erstes machen wir das (am weitesten eingeschachtel 

te) IF ausfindig. Die auf dieses folgende Kombination von 

ELSE und THEN bezieht sich nun dieses innerste IF. Vom 

sten IF gehen wir nach außen und finden das vorletzte IF . Die 
nächste Komb ; hation von ELSE und THEN hinter der soeben gefunde 
nen bezieht sich nun auf dieses IF. Auf diese Art arbeiten wir 

von innen nach außen üiid stellen so die Beziehung zwischen den 

einzelnen IF, ELSE und THEN her. Sie können auch noch ein anderes 
Verfahren anwenden. Dazu gruppieren wir das erste IF mit dem 


12 

1 3 
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nächsten ELSE und dem letzten THEN in der verschachtelten Struk 
tur (Beachten Sie, daß dies nicht notwendigerweise das letzte 
THEN im gesamten Wort sein muß!). Dann wiederholen wir dieses 
Vorgehen mit den verbleibenden IF, ELSE and THEN. So gehört z.B. 

Abbildung 4-5 das IF auf Zeile 2 zum ELSE auf Zeile 3 und dem 
THEN auf Zeile 10. Das erste IF im Wort wird also auf das nächste 
ELSE und das letzte THEN bezogen. 

Wenn also in unserem Programmbeispiel das Original-Flag den Wert 
"wahr" hat, dann wird "DURCHGEFALLEN" ausgegeben, anschließend 
mittels DROP der Stack bereinigt und das Wort beendet (denn hin 
•fcer dem zugehörigen THEN stehen keine weiteren Befehle mehr) . Ist 
andererseits das Flag "falsch", dann werden die Befehle zwischen 
dem IF JÄtSfe^dtle 2 und dem ELSE in Zeile 3 igrofifeiefc . Statt dessen 
gelangen die Wörter zwischen dem ELSE von Zeile 3 und dem THEN 

von Zeile zur Ausführung. Die Zah$'i; -die sich zu diesem Zeit 

punkt j®i oberster Stack-Pos itfön befindet^:, .Ist die duplizierte 
Punktzahl des Schülers weniger 60. Jetzt legen wftr in Zeile 3 
eine 10 auf den Stack und subtrahieren erneut. Die Zahl, die wir 
daraus als Ergebnis erhalten,, ist nur dann größer oder gleich 
Null, wenn Ausgangspunktzahl größer oder gleich 70 war. Biese 

neue Zahl duplizieren fjfe-JB ebenfalls in Zeile 3 mittels DUP . Dann 
kommt das Vergleichswort 0< an die jkeihe und legt ein Flag auf 
den Stack. Dieses wird nächsten IF entfernt. Hatte es den 

Wahrheitswert "wahr", dann wird eine Vier ausgegeben. 

Versuchen Sie einmal, das gerade aktuelle IF mit seinem dazugehö 
rigen ELSE und THEN Beziehung ifti bringen. Wie wir wissen, 

gehört zu dem IF von Zeile 3 das ELSE auf- Seile S und das THEN i|| 

Zeile 9. Bei einem "wahren" Flag wird also eine "VIER" ausgege 

ben, gnschließenif Ä4jfct©ls DROP der Stack bereinigt und die Pro 
grammkontrojle an Zeile 9 und anschließend an Zefi#' Ä übergeben, 
was bedeutet, daß das Wort endet. Ist das Flag jedoch "falsch", 
dann werden die Befehle zwischen dem IF auf Zeile 3 und dem ELSE 
Seile 5 ignoriert. StÄtt, dessen gelangen die Wörttjef zwischen 
dem ELSE in Zeile 5 und dem THEN :fi 7,c : 1 e 9 zur yfa&S &BsEim a' Hi<Sr 
verfolgen wir wieder dieselben Schritte wie bereits zuvor und 
geben "DREI" oder "ZWEI" aus, je nachdem, welche Punktzahl dejfi 
Schüler erteighfc hat. Beachtert; Sie, daß bei Ausführung des IF von 
Zeile 6 def Schüler entweder eine 2 oder eine 1 erhält. Wenn das 
Flag, das sich durch das Ergebnis des 0«t Zeile 6 ergibt, 

"wahr" ist, danjj: sollte eine 2 ausgegeben werden, anderenfalls 

wird eine 1 auf dem Bildschirm erscheinen. 
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FORTH bedient des Returnstacks, jfii glie Abarbeitung solche#- 

verschachtelter Kontrollstrukturen wie in Abbildung 4-5 zu bewäl 
tigen. Kommen bei verschachtelten Verzweigungen die Wörter >R und 
R> voi, dann müssen Sie äußerste Sorgfalt walten lassen, tfi jedem 
Zweig einer solchen Struktur muß eine gleiche Anzahl von >R und 
R>-Worten zur Ausführung gelangen . Beachten Sie, daß es dazu 
Jifcht reicht-, lediglich* eine gleiche Anzahl von >R und R>-WorteSt- 
im Programm stehen zu haben. Es müssen auch gleich viele dieser 
Wörter ausgeführt werden. Dies gilt für jeden Zweig in 

Programm. Selbst wenn zwei Zweige existieren, also 

keine Verschachtelungen vorgenommen werden, müssen immer- 
gleichviel R> und >R-Befehle ausgefi£Jtl|st, werden. Werthi. Sie sich 
nicht an diese Vorschrift halten, dann können Sie Ihr System zum 
Absturz- bringen. Sie müßten es dann erneut Sta r:ten und würden 
unter Umständen alle Daten verlieren, wenn' Sie --idä-ese nicht auf' 
Diskette gesichert haben. 


4 . 3 Unbedingte Schleifen 


Oft ist es nötig, daß ijäjjis? '-Programm eine Folge v©h: Schritten wie 
derholt ausführt. Man spricht in diesem Fa®« von einer Programm 
schleife. Wir 'fedBriten ein FORTH-Wort schreiben, das aus einer' 
Folge von Befehlen besteht und däti|p8' : ein anderes FORTH-Wort, das 
dieses erste FORTH-Wort wiederholt auf ruft. Dies ist aber hoch 
stens eine Not 1 ösung, besonders, wenn die Operationen sehr Viele 
Male wiederholt werden müssen :f§n FORTH gibt es für diesen Zweck 
spezielle Wörter, mit denen Programmschleifen ausgelöst werden 
können, ohne daß der Programmierer die Wiederholung der Befehle 
Vöh Hand Hinschreiben bewirken muß . Das Prfnxif) der Pro 

grammschleifen eröffnet noch eiöi-ge weitere nützliche Möglich, 
keiten, die wir in diesem Abschnitt besprechen wollen. 

DO Khtt 'LOOP - Diese beiden Wörter werden eingesetzt, apfc, .©lernen 
tare Schleifen in Programmen zu bewerkstelligen. Ein© solche 
Schleife hat folgenden allgemeinen Aufbau 


n i ri2 DO anweisungen a LOOP 
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dieses Konstrukt hat die- folgende Bedeutung: Bel Ausführung einer 

Abweisung der Form (4-12) wo rder. die Werte n A und n,j vom Stack 
en t lernt und wßam ' dem Return-Stack abgelegt, wobei dort. n A zu 
oberst zu 'liegen kommt . (Was die Werte n T imop. betrffsft^ so 
-üssen Sa# -t|ch um den RetjaäÖS-Stacfc nicht kümrftetfn. Nach Verlasse# 
:er Schleife wird dieser nämlich automatisch von und n£ berei 
nigt . ) Als nächstes werden, die ”änweisungen a" aus geführt*, Trifft 

•£er FORTH-Interpreter nun auf das Wort LOOP, so erhöht er den 
Wert von n A auf dem Return-Stack ur|. 3, und vergleicht diesen neuen 
Wert mit h A . Falts smc kleiner als n 1 i s lig &rewe r den eifheut die "an- 
•'eisungen a" wiederholt. Jedesmal beim Erreichen des Wortes LOOP 
wird also um 1 erhöht (inkrementiert.j UBd getestet. Wird es 

■dabei einmal gleich oder größer n A , dann wird die Schleife ver 
lassen, und die Anweisungen hinter LOOP werden ausgeführt. Ist 
andererseits n A immer noch kleiner als n A , dann werden die *an- 
“eisungen a" erneut ausgeführt. Deswegen sorgen die folgenden 
Befehle 


7 4 DO . f- HMÄp '* LOOP (4-13) 

dafür,, daß das Woä4' HALLO dreimal auf dem Bildschirm ausgegeben 
wird. 

•Sie Stack-Relation bei Ausführung eines DO lautet: 


Bie Zahl n A heißt Testwert der Schlei fe; sie bleibt unverändert. 
Sie Zahl. •JK A bezeichnet man als Schleifenindex . Sie wird bei jedem 
Kirchgang durch die Schleife U8t 1 erhöht. Beachten Si% daß min 
•destens ein Durchgäng durch die Schleiii# vorgenommen wird, da de:j>- 
SchLerfPgn . in . dex erst bei Erreichen von LOOP mit dem Testwert ver 
glichen wird. 

Man kann sich den Schleifenindex vom Return-Stack auf den Parame 
ter-Stack mit Hilfe des FORTH-Wortes I kopieren. Auch den Test 
wert kann man vom .Return-Stack auf den Parameter-Stack bringen, 
und zwar mit dem Wort f. 1 '.*. Beachten Sie, daß keine dieser beiden 
Operationen etwas am Return-Stack verändert. WiM haben sie be 
reits Abschnitt 2-6 kennengelernt . Als Beispiel.’ 
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fraltim- atife Schleiifie wollen e®h FORTH-Wort schreiben, das die 

Fakultät einer Integer an oberster Stack-Position berechnet. In 
der mathematischen Fachliteratur stellt man die Fakultät einer 
Zahl ijjst Hilfe des Ausrufezeichens dar. Als Beispiel 

51=5*4*3*2*1=120 . 

Entsprechend ist 3i =3*2*1 = 6. (Beachten Sie, daß man "5!" als "5- 
Fakultät" liest) . Die Definition des FORTH-Wortes FACT entnehmen 
Sie bitte der Abbildung 4-6. Wir wollen uns einmal ansehen, wie 
dieses Wort rffonkt-roniert . Zur Berechnung von 5! geben wir ein: 


5 FACT (RETURN) (4-15) 


Das bedeutet), daß sich bei Aufruf von FACT eine 5. auf dem Stack 
befindet®. ! J)ie Definition von FACT enthält alle notwendigen Anwei 
sungen, um das Schleifenkonstrukt "in Gang zu setzen". Dabei soll 
bei jedem Durchgang durch die Schleife eine Multiplikation statt 
(finden. Der Anfangswert des Schleifenindexi, 1. Wenn 'wfiih die 

Fakultät von ja berechnen wollen, dann sollten wir die Schleife 
fünfmlwt ^durchlaufen . Deshalb benötigen wir einen Testwert von 6. 
Dies kommt daher, daß die Sch leite erst denn verlassen w: rd, wenn 
der erhöhte Index dem Testwert entspricht. 

Jetzt zur Abbildung 4-6. Als erstes pushen wir 1 auf den Stack 
und rufen das Wort +. Dadurch tütä der Ausgangswert; 'S® 1 erhöht. 
Wir hätten dies natürlich genauso- 'ösfie des Befehls 1+ errai 
chen können. Dann legen siit eine weitere 1 aöf den Stack. Zu die 
sem Zeitpunkt der Programmausführung haben wir also zuoberst au# 
dem Stack eine 1, gefolgt von der Ausgangs zaöi.j. welche um *1 er 
höht wurde - in diesem Fall also die 6. Nun legen wir eine wei 
tere 1 alt® den Stack. Diese brauchen wir- in unseren Berechnungen . 
Ehe wir damit aber beginnen können, müssen wir den Anfangswert 
des Schiel fenindex sowie den Testwert an die richtigen Stack- 
Positionen, also d.ft erste und zweite Position bringen. Dies 
geschieht dufd® zweimalige Ausführung Vbji ROT. Tn. unserem Bei 
spiel 4-15 bedeutet dies, daß nach Ausführung der zwei ROT-Wörter 
der Stack folgendes Aussehen hat: 161. Dabei ist die letzte 

Zahl der oberste Stack-Eihfciag . Jetzt koiöjBfc endlich das DO an die 
Reihe, welches die Schleife eihieifcet . E|0 entfernt die obersten 
beiden Stack-Werte und legt sie auf den Return-Stack. Infolge 
dessen befindet sich auf dem Daten-Stack jetzt zuoberst einftl. 
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Ö ( Berechnung der FakeltaeL ) 

1 : FACT 1 + 11 ROT ROT 

2 DO I * LOOP . I 

3 

4 

5 

6 

0 

8 

9 

1 f- 

12 

% 3 
14 

i i.. 

ABBILDUNG 4-6: Ein Fakultätsprogramm 


Betrachten wir nun die Anweisungen zwischen DO und LOOP. Die er 
ste ist der Befehl I . Diese dupliziert den Schleifenindex an die 
oberste Daten-Stack-Position, Anschließend wird mittels * multi 
pliziert. Somit werden die obersten beiden Stack-Einträge durch 
ihr Produkt ersetzt. Beim ersten Schleifendurchgang bo rechnen wir 
also 1*1. Beim zweiten Durchgang durch die Schleife hat der Index 
den Wert 2. Deshalb wird das Produkt 1*2=2 berechnet . Der dritte 
Schleif endurehgang arbeitet;' |jp§e- einem Sch leif en i ndcx vgii 3 und 
berechnet 2*3=6. Nach Abschluß der Sch 1 e i Te haben wir also die 
gewünschte Fakultät berechnet. Dieser Wert wird nach Beendigung 
der Schleife durch das Punktkommando ausgegeben. 


4 . 4 Schleifen-lnkrement mittels +LOOP 


Wir haben gesehen, daß bei jedeia Durchgang durch eine Schleife 
der Index automatisch um 1 erhöht wird. Manchmal kann es aber 
wünschenswert sein, den Schleifenindex um einen anderen Betrag 
als 1 zu verändern. Dazu ersetzen wit eii^ch das FORTH-Wort LOOP 
durch ein anderes Wort, welches dies bewerkstelligt. Dieses Wort 
lautet +LOOP . Bei Ausfül>S$gJS.g von LOOP wird der Schleifenindex um 
^'■erhöht, und anschließend wird überprüft, ob sein Betrag bereits 
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den Testwert übersteigt . Anders bei +LOOP : Bei Ausführung- dieses 

Wortes wird der oberste Stack-Eintrag vom Stack entfernt und 
dient jetzt als Schleifeninkrement, d.h./ :®r gibt den Betrag an, 

um den der Schleifenindex erhöht werden sollt*' Nachdem der Schlei, 
fenindex um das Schleifeninkrement erhöht wurde, wird der neue 
IndexweüJfj- dem Testwert verglichen, wobei FORTH nachsieht' ob 

der Schlsi'feaindex kleiner als der Testwert ist. (Dies Jjplt nur 
für den Fall, daß das Schleifeninkrement positiv war.) Die Stack- 
Relation für das Wort +LOOP lautet 


(4-16) 


Als Beispiel 'ftfr dieses Wort werden wir e)4W kleines Programm 
schreiben, welches die Summe aller ungeraden Zahlen angibt, die 
innerhalb eines durch die zwei obersten Stack-Einträge festgeleg 
ten Bereiches liegen. Wir geben diesem neuen Wort den Namen 
ODDSUM. Beispielsweise sollte 


17 3 ODDSUM (RETURN) (4-17) 


die Summe der ungeraden Zahlen zwischen 3 und 17 einschließlich 
auf dem Bildschirm ausgeben. Die Definition von ODDSUM lautet: 


: ODDSUM SWAP 1+ 0 SWAP ROT DO I + 2 +LOOP (4-18) 

Die erste OperatH an -diesem Wort ist ein Austausch der be ; den'; 
obersten Stack-Werte mittels SWAP. Im Beispiel (4-17) bringt dies 
die Zahl an oberste» Stack-Position. Sie wird anschließend 

mittels 1+ um eins erhöht . Dann bringen wir noch eine 0 auf den 
Stack und führen erneut SWAP aus . Das anschließende Wort ROT 
führt dann dazu, daß wir für Beispiel (4-18) den Stack 0 18 3 

erhalten. Bei dem jji'iysi^ieg xn die DO-Schlei’if© haben wir also (in 
Beispiel (4-17)) einen Anfangswert für den Schleifenindex von 3, 
während der Testwert 18 ist. DO entfernt diese beiden Zahlen vom 
Stack, so daß sich nun die Null dort zuoberst befindet. Bei einem 
Durchgang durch die Schleife legt I den Schleifenindex auf den 
Stack. Dieser ist in unserem Beispiel bei# ersten Durchgang 
gleich 3, so daß innerhalb der Schleife auf die 0 eine 3 addiert 
wird. Diese beiden Werte - 3 und 0 - werden entfernt und durch 
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ihre Summe ersetzt. Anschließend legen wir eiifip 2 auf den Stack. 
Sie sorgt zusammen mit dem Wort +LOOP dafür, daß der Schleif enin 
dex um 2 erhöht wird. Deshalb wird beim nächsten Durchgang durch 
die Schleife eine S auf die bisher aufgelaufene Summe addiert. 
Wenn schließlich der erhöhte Schleifenindex größer als der Test 
wert der ist, dann endet die Ausfüllung der Pragrartim 

schleife. Das Punktkommando gibt die gewünschte Summe aus. 

Die bisherigen Beispielprogramme benutzten positive Werte für den 
Schleifenindex, den Testwert und das Schleifeninkrement, Dies muß 
jedoch ni-esiiit so se|j$» alle drei Parameter können genausogut nega 
tive Werte besitzen. Bei einem positiven Schleifeninkrement wird 
die S'chlö&fÖ^ verlassen, we r,ti' der ' Schleisffehindex größer oder 
gleich dem Testwert ist. Ist andererseits das Schleifeninkrement 
negativ, dann endet die Schleife, wenn der Schleifenindex einen 
Wert besitzt, der kleiner als der Testwert ist. Betrachten Sie 
z.B. das Wort NEGTEST: 


: NEGTEST -5 2 DO I . -2 +LOOP ; (4-19) 


Wenn wir dieses Wort atiff u fer. , so erhalten wi®. : als Ergebnis 
Ä# - 2 - 4 ok 

LEAVE - Mit dem FORTH-Wort LEAVE kann man das Verlassen einer 
Schleife erzwingen. Bei Ausführung von LEAVE wird der Testwert 
■der Schleif# Ifpkf den aktuellen Wert des Schleif enindex gesetfrfSjr. 
ia-durch wird die Schleif# bei dem nächsten LOOP verlassen. LEAVE 
-~rd fast immer in Zusammenhang mit Verzweigungen eingesetzt. Wir 
-erden noch später in diesem Kapitel eljjjlr Anwendungsbeispiel 
LEAVE kennenlernen. 
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4 . 5 Verschachtelte Schleifen 


Eine Schleife kann in ne rha 1 b einer anderen eingeschächtelt sein. 
Wir wollen dies an einem kleinen Beispiel demontieren : 


: NEST 101 DO 5 3 DO I . LOOP LOOP ; (4—20 ) 


Wenn wir das Wort NEST aufrufen, dann erhalten wir neunmal hin 
tereinander - ctie Zahlen 3- iinö. 4 auf dem Bildschirm. Die Wortdefi 
nition enthält zwei Schleifen - eine äußere Schleife, deren Index 
mit 1 beginnt und die eiß<an Testweiäf?' von 10 hat, sowie eine 

■ igfthere Schleift^/ deren Index den Anfangswert 3 hat und die mit 
einem Testwert von 5 arbeitet. Bei Ausführung von NEST gehen wir 
zuerst einmal in die äußere Schleife. Dabei werden die Zahlest 
und 3 auf den Stack gelegt. Als nächstes Wort leitet DO die 

innere Schleife ein. Dies bedeutet, daß dfä;- 5 und die 3 wieder: 
vom Stack entfernt und auf den Return-Stack gepusht werden. 

Infolgedessen werden die;"-J|0 und die 1, die vor der äußeren J30=-r 
Schleife auf dem Stack waren, um zwei Positionen auf dem Return 
stack nach unten wandern. Nun stoßen wir auf das FORTH-Kommando 

I . Dieses legt den Wert des Schleifenindex auf den Stack; beach 
teh' Sie dabei, daß I stets den Index der Schleife ausgibt, jbö, der 
wir uns gerade befinden. In unserem Beispiel ist dies gerade die 
innerste Schleife. Beim ersten Durchgang durch die innerste 
Schleife hat der Index den Wert 3, weswegen auch dieser Wert auf 
den Stack gelegt wird. Das Punk tkcr~.rr.ar.de entfernt Ihn wieder von 
dort und gibt ihn aus. Der nächste Schleifendurchgang erfolg t mit 
einem Schleifenindex von 4; dieser Wert wird gedruckt. Die innere 
S*'chle : i»fis bricht • ab, und Parameter werden vom Return- 

Stack entfernt. Wir befinden uns aber immer noch $a&> einer 
Schleife, nämlich in der äußeren Schleife, deren Schleifenindex 
und Testwert jetzt zuoberst auf dem Return-Stack sind. Diese 
äußere Schleife durchlaufen wir nun zum zweitenmal. Wieder werden 
die 5 und die 3 att den Stack gelegt uhfi die innere DO- Sch le i fe 
durchlaufen . Es wiederholen :§ich dieselben Vorgänge wie zuvor: 3 

und 4 werden wieder ausgegeben, und die innere Schleife wird 
verlassen. Dieser ganze Vorgang wird so lange wiederholt, bis die 
äußere Schlelßg. .insgesamt neunmal durchlaufen wurde. 

Wenden wir uns noch einmal dem I-Befehl zu. Er besorgt den Index 
der Schleife, die gerade a u s g e f ’.u h r t w : r d , und legt ihn auf den 
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Daten-Stack. jgfrfc die aktuelle Schleife die innerste, dann wird m 
deren Index ab# den Stack legen. Ist die AusföfaKuBg der .^tinersten 
Schleifte jedoch abgeschlossen, dann dupliziert I den äußere#; 
Schleifenindex auf den Stack. Ähnlich sorgt das FORTH-Wort I' 
dafür;, daß der Testwert der gerade in Aktion befindlichen Schlei 
fe auf den Stack gelegt wird. Manchmal kömmt; es Vor, daß wir das 
in eine®?'. ‘inneren Schleife befinden,, aber den Index der äußere® 
Schleife auf den Stack gelegt haben wollen. Dies erreichen wir 
mit dem FORTH-Wort J (vergleiche Abschnitt 2-6) . Beachten Sie, 
daß I, I’ und J im Return-Stack nichts verändern. Nach Abschluß 
einer Schleife, werden alle ihre Schleifenparameter vom Return- 
Stack entfernt. Sie brauchen sich darum nicht zu kümmern. 

Bei eingeschachtelten Schleifen muß die .laBeyce. ItohXeifis yoll&tlha, . 
diq innerhalb der äußeren Schleife liegen. Beachten Sie, daß 
jeder DO-Befehl mit einem zugehörigen LOOP oder +LOOP verbunden 
ist. Um herauszttÄnden, welches DO welchem LOOP bzw. +LOOP 

gehört,;. können Sie. im wesentlichen genauso Vorgehen, wie wir es 
bei IF und THEN kennengelernt haben. Machen Sie zuerst das in 
nerste DO ausfindig. Dazu gehört das nächste vorkommende LOOP 
oder +LOOP . Dann suchen Sie das vorhergehende DO. Dazu gehört das 
Äftchste LOOP, '3j|isgehend van- dem zuletzt gefundenen LOOP. WejKfc wi4. 
in dieser Weise Vorgehen, so können wir den Sglt^ng^jggigisJl jede# 
Schleife ausfindig machen. 

Als Beispiel für verschachtelte Schleifen wollen wir ein Programm 
schreiben, das pythagoreische Zahlentripel berechnet. Damit "be 
zeichnen wir drei ganze Zahlen, die die Länge der drei Seiten 
eines rechtwinkeligen Dreiecks wiedergeben sollen. Die Zahlen a, 
b und c (allesamt 1 I^itegers) stellen ein pythagoreisches Zahlen 
tripel dar. 


(4-21), 


Wenn etwa a = 3 und b = 4, dann ergibt sich c = 5, und somit ist 
3, 4, 5 ein solches pythagoreisches Tripel. Nun gibt es nur eine 
Handvoll ganzer Zahlen, die die Gleichung (4-21) erfüllen. Wir 
wolle?? tm# deshalb ein FOR^H-Programm schreiben, das solche Tri— 
Pe*ja®&§* Wert'® von St bind b zwischen .und, 100 berechnet . Das zuge 
hörige. Programm sehen Sie in Abbildung 4-7. Wir definieren uns 
zuerst zwei neue Wörter, die wir benötigen. Das erste, SQUARE, 
rst uns bereits aus Abschnitt; 2-3 jjhicr dem Namen ZWEITE bekannte 
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Es entfernt die oberste Zahl von Stack und ersetzt sie durch ihr 
Quadrat (die zweite Potenz) . Das zweite Wongä-!: PT, drückt eine 
Zahl in einem Datenfeld mit einer Breite von lj5. Spalten. 

Die (Definition des Wortes zur Berechnung des pythagoreischen Zah 
lentripels beginnt auf Zeile 3. Wir haben dem Wort den Namen 
PYTHTRIP gegeben. Es /.ei ebnet durch drei verschachtelte 

Schleifen aus: eine äußere Schleife, Jji die zwei weitere Schlei,, 

fen eingeschachtelt sind, nämlich eine mittlere Schleife (inner 
halb der äußeren Etehleife) und eine innerste Schleife, die i-fl . die 
anderen beiden eingebettet ist. 

Wir wollen einmal sehen, wie, -unser Wort funktioniert. Die Zeile 3 
legt erst einmal den Testwert 100 und den Schleid: enindex 1 auf 
den: .Stack. iSiese werden -#S5ii DO entfen3ä& und auf den Return-Stack 
gelegt . Damit sind alle nötigen Vorkehrungen für die äußere 
Schleife getroffen. Das nächste Wort, dupliziert den Laufindex 

der äußeren Schleife auf den Stack. Diesen verdoppeln wir durch 
DUP und. lassen d&S von SQUARE deren Quadrat berechnen. Nach Be 
endigung der Zeile 3 befinden sSJiyS, also auf dem Stack der Index 
der äußeren Schleife sowie dessen Quadrat (das Quadrat ist zu 
oberst) . Die nächste Zeile leitet die mittlere DO-Schleife ein. 
Es ist sehr w.: chtig, daß nach einem Durchgang durch die mittlere 
Schleife der oberste Stack-Eintrag unverändert bleibt. Er muß 
nach Vollendung der mittleren Schleife nach wie vor den Laufindex 
der äußeren Schleife und dessen Quadrat enthälfen . Zeile 4 legt 
erst einmal die l&Q auf den Stack. Anschließend besorgen wir uns 
I den Index der äußeren Schleife. Win - v tun dies, um die mehr 
malige Berechnung desselben Zahlentripels zu vermeiden. Wenn wir 
z.B. die Zahlen 3, 4 und 5 gefunden haben, dann wollen wir nicht 

auch noch 4, 3 und 5 finden. Dadurch wird unser Programm um eini 

ges schneller. Nachdem so der Testwert und der Schleifenindex für 
die mittlere ScÖlÄifje vorbereitet worden Sind, holt aidh das DO 
von Ziefle 4 diese beiden Werte vom Stadls, und pusht sie a|öfv def: 
Return-Stack. Als nächstes kommt der DUP-Befehl die Reihe. An 

dieser Stelle duplizieren wir somit das Quadrat des Index der 
äußeren Schleife. Dann lassen wir uns durch I den Index der mit 
tiereil Schleife auf den Stack legen, den wir mittels SQUARE 
quadrieren. Das letzte Wort auf Zeile 4, der Befehl +, sorgt 
dafür, daß die Zahl an oberster Stack-Position sich nun aus dem 
Quadrat der Indizes der äußeren ^nd mittleren Schleife ergibt. 
Dies aber ni.öhts anderes als ä + b , wobei a den Index der 

äußeren und b den Index der mittleren Schleife da r sie Llt . 
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1 p 
1 1 


[ Pythagoreische Zahlentripel 
SQUARE DUP * ; 

PT 15 .R : 

PYTHTRIf >100 ,V-pO I 

.100 1 DO 
142. I DO 

0= IF I J 
0< IF 
LOOP 

LOOP DROP 
LOOP CR : 


DUP SQUARE 
DUP I SQUARE + 

DUP I SQUARE 
6 PICK CR PT PT 

LEAVE THEN 
DROP 

DROP 


PT THEN 


ABBILDUNG 4-7: 


Ein Programm zur Berechnung pythagoreischer 
Zahlentripel zwischen 1 und 100 


Jetzt kommt die innerste Schleife an die Reihe. Auch hier ist es 
wichtig, daß der 'äjtack hach jedem jlftreKlauf durch diese Schleife 
unverändert bleibt. Zeile 5 gibt als erstes den Testwert 142 auf 
den Stack. Falls nämlich a und b gleich 100 oder kleiner sind, 

dann kann c, d A r Index der inneren A Schlei A e, nicht größer als 142 
sein (denn 142 ist größer als 10C + 100 ) . Als nächstes liefert 
uns I den Index der mittleren Schleife, der als An fangswert 
den Laufindex der inneren Schleif# dient, während der Test 

wert dieser Schleife ist. Den Grund, als Testwert, für die 5 

ste Schleife 142 zu nehmen, haben wir bereits dargestellt. Daß 
den,’ j(ndex der Mittleren Schleife .aife Anfangswert für den 
Laufindex der -4|jn©rsten Schleif# setzen, liegt daran, daß c dicht 
kleiner als a oder b sein kann. Die innerste Schleife soll, ja 
allji:.; möglichen Werte für c testen, und unmögliche Werte wollen 

wir dabei gar nicht erst betrachten. Das innerste DO in Zeile 5 

entfernt diese Schlei:£#jip A rame A er und pusht sie auf den Retuftt— 
Stack. Jetzt ist wieder a + b oberstes Stack-Element, welches 
mittels DUP dupliziert wird. Wir besorgen uns mit I den Index der 
inneren Schleife, quadrieren ihn mit SQUARE und subtrahieren 
diesen Wert vom zweiten Stack-§Jä|ftrag, A o da* hac j j j Ausführung vor! 
- der Stack zuoberst das Ergebnis von a + b - c enthält. Falls 

diese Za.h 1 gleich 0 jf .iä'st , dann haben wiij BCtn pythagoreisches 
Zahlentripel gefunden. 
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Diese# iest nehmen wist- Zeile 6 vor. Das Wort 0 = liefert S®* 
Flag, das wir mit IF auswerten. Falls es wahr ist, bedeutet dies, 
daß wir eines der gesuchte# Tripel gefunden haben. Dieses wollen 
wir natürlich auf dem Bildschirm ausgeben»,. ,D i e Wörter I und J 
itnte*' dem IF-Befehl legen die Lauf i.ndi zcs der .innersten und 
mittleren Schleife .auf den Stack. Der PICK-Befehl sorgt zusammen" 
®St der Zahl 6, die zuvor auf den Stack gelegt wird, dafür, daß 
der Index der äußersten Schleife nach oben befördert wird. Wir 
haben somit alle 3 gewünschten Indizes an den richtigen Stellen 
und können sie mit unserem selbstdefinierten PT ausdrucken las 
sen . Wenn wir allerdings keines der gesuchten Zahlentripel qc fuh 
den haben, dann war das Flag, das- in Zc : 1 e 6 mittels: getestet 

wurde, falsch, und die Befehle zwischen IF und THEN werden igno 
rieft . 


Wenn das Quadrat des innersten Schleifenindex größer wird als die 
Summe der Quadrate der beiden äußeren Schleifenindizes, dann gibt 
es keinen Grund, die innerste Schleife noch weiter tu du rch 
laufen. Dieser Sachverhalt wird :i# Zeile 7 übe rprü.ft . Falls das 
Wort 0< eis, wahres Flag ergibt, dato verlassen wii^'^|0feels LEAVE 
die innerste Schleife» Wie Sie bereits wissen, erzwingt LEAVE, 
daß der Testwert der gerade in Ausführung befindlichen, Schleife - 
Jfcfl diesem Fajji- »der innerstes - gleich dem Schleifenindex gemach]! 
wird. Jj&a führt dazu, daß bei der Erreichung des LOOP diese 
Sdhlesife (Vorzeitig) verlassen wird. Wir befinden uns aber inneif' 
noch in der mittleren Schleife». Ehe wir jedoch einen neuen Durch 
gang durch die mittlere Schleife in Angriff nehmen können, müssen 
wir den Stack wieder jpii den Zustand überführen,,. 5dem er sich 

vor Eintritt in die innerste Schleife befand. Nun haben wir in 
Zeile 4 mittels DUP den Wert von a A +' cf auf den Stack dupli 
z i ert; diesen müssen wir jetzt wieder loswerden. Dafür sorgt das 
Wort DROP in Zeile 8. Wenn FORTH nun auf das Wort LOOP in Zeile 9 
stößt, dann unternimmt es einen weiteren Durchgang durch die 
•|(®ttlere Schleife, vorausgesetzt 1 - deren Endekritariisjn ist noch 
nicht erreicht. Wir wiederholen diesen ganzen Prozeß und testen 
dabei immer wieder den Index der: innersten Schleife, bis die 

mittlere Schleife insgesamt lOOmal durchlaufen wurde. Danach, 
also nach Beendigung der mittleren Schleife, müssen wir den Index 
der äußeren Schleife und dessen Quadrat vom Stack entfernen, um 
alles für einen erneuten .Jjuhehgang durch die äußerste .Schleife 
vorzubereiten. Dazu dienen die beiden DROP von Zeile 10. Danach 
geht ' s erneut in die äußerste Schleife, und der ganze Vorgang 
wiederholt sich erneut. 
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BEGIN. Ä«§ UNTIL - Die FORTH-Wörter BEGIN und UNTIL dienen zum 
Programmieren vor. bedingten Schleifen. Mit diesen beiden Wörtern 
gebildete bedingte Schleifen haben die folgende allgemeine Eörm: 


BEGIN anweisungen a (flag) UNTIL 


(4-22) 


Dies twie folgt. Wenn der FORTH-Interpreter zum er 

sten Mal auf das Wort BEGIN trifft, dann führt er di# "an.we i sur. 
gen a" aus. Beim Auftauchen von UNTIL wird der oberste Stack-Ein 
trag ent fernt und als Flag behandelt. Dieses Flag kommt io. der 
Regel durch Operationen innerhalb der "anweisungen a" auf den. 
Stack. Wenn das Flag falsch ist, dann werden die "anweisungen a" 
wiederholt'.. Dies geht so lange weiter, bis das Flag wahr wird. In 
diesem Fall wird die Schleife verlassen, und FORTH führt die Wor 
te hinter UNTIL aus. Das Wort UNTIL hat folgende Stack-Relation: 


(4-23) 


Als Beispiel' für eine bedingte Schleife wollen wir ein FORTH-Wort 
schreiben, das eine beliebige Anzahl von Zahlen auf addiert. Wenn 
wir das Wort ADDER aufrufen, dann fordert es den Benutzer zur 
Eingabe einer Zahl auf, indem es ein Fragezeichen auf den Bild 
schirm bringt. Nach Eingeben einer Zahl (und Drücken der RETURN- 
Taste) erscheint erneut das "?". Auf diese Art können Sie eine 
beliebige Anzahl von Zahlen eingeben; die Zahleneingabe wird 
durch eine Null beendet. Wen&. das Programm bemerkt, daß Sie 0 
eingegeben haben, dann bricht es die Schleife ab und gibt dii : 
Summe aller bisher eiögegebenen Zahlen aus. Sie sehen das Pro 
gramm Lri Abb . 4-8 . 


0 ( Summe einer beliebigen Anzahl von Zahlen ) 

1 : ADDER 0 BEGIN #IN DUP ROT + SWAP 

£. UNTIL CR . ; 

3 

4 

Hj 

ABBILDUNG 4-8 : E|^'. ;Programm zum Auf addieren einer 
beliebigen Anzahl von Zahlen 


HÜ 


durch BEGIN 


pushen wir 0 apjli den Stack. Dann wird 
te Schleife eingeleitet. Die erste Anweisung innerhalb 
ist das Wort #IN , welches die Eingabeaufforderung ? 
Lldschij-Sft jä.fingt und so lange wartet, bis der Benutzer 
singegeben hat. Diese Zahl duplizieren wir. Dann holen 
it ROT den dritten Stack-E Ä^'rag am die oberste Po$ife 
[tritt in die Schleife ist dies eine 0, bei den nachfol 
hleifendurchgängen befindet sich an dieser Stelle je 
me der bisher eingegebenen Zahlem, Mittels + addieren 
Le letzte Benutzereingabe , "Biese Zahl wird anschließend 
i die oberste Stack-Position befördert. Wir testen nun 
b es sich dabei ttlh eine 0 handelt.. Bekanntermaßen enti 
,e Testzahl und legt statt ihrer ein Flag -au.!' den St 
ist nur dann wahr, wenn die zum Vergleich herangezc 
jleich % war. Das 0 = ist auch Grundlage für die Entsc 
7on UNTIL. Ist es falsch, dann erfolgt ein erneuter Du 
durch die Schleife, was bedeutet, daß die Befehle zwis 
und UNTIL erneut durchlaufen werden. Wip haben die Schl 
ahrieben, daß am Ende eines Schleif endurchlaufs die £ 
her eingegebenen Zahlen an oberster Stack-Position steht. 

der Bediener |piletzt eine 0 eingegeben, darin -JL^t das 
rzeugte Flag in Zeile 2 wahr. In diesem FaÄ wird 
e verlassen, wir erzeugen mittels CR einen Zeilenvors 
en die bisher berechnete Summe aus . 

WHILE und REPEAT - Mit diesen drei Worten kann in I 
andere Art von bedingter Schleife formul ’! ert werden, t) 
Le allgemeine Form: 


BEGIN anweisungen a (flag) WHILE anweisungen b REPEAT (4 


dt BEGIN, WHILE und REPEAT gebildete Schleife funktion 
;r. dermaßen. Der Anfang der Schleife wird durch BEGIN ei: 
Zuerst einmal werden die "anweisungen a" ausgefül 
welches hinter diesen Anweisungen kommt, behandelt 
»Staek-Eitt . tra<g als Plag Uftd entfernt ihö von dort. F 
ag wahr ist, dann sorgt WHILE dafür, daß die "anweisu 
geführt werden und anschließend zum Anfang der Schl 
eibar hinter BEGIN zurückgekehrt wird. Es werden in di' 
Iso auch die "anweisungen a" erneut ausgeführt. Ist < 


WHILE 
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Sch ; ei fe verlassen, und die "anweisungen b" gelangen nicht; 
Ausführung. Vielmehr werden die Befehle ausgeführt, die sich an 
das Wort REPEAT anschließen. Diese Arbeitsweise sorgt dafür/ daß 
die iftif BEGIN-WHILE-REPEAT gebildete Schleif# so lange ausgeführt 
wird, solange eine Bedingung wahr ist; außerdem kann diese Bedin 
gur.g a -it beliebiger Stelle innerhalb der Schleife deren Verfassen 
erzwingen. Andererseits wird eine BEGIN-UNTIL-Schleif e so lange 
ausgef utar®./- solange eine Bedingung falsch ist, und diese Schleife 
kann nur am Ende verlassen werden. 

Als Beispiel wollen isjfiir das Wort zur Berechnung der Fakultät 
ei «ei Zahl (vergleiche Abschnitt 4-3) neu def5$»*eren . Diese Al- 
ternative zu unserer bereits bekannten Definition sehen Sie in 
Abb. 4-9. 


8 

9 

1 2 

.1 3 

14 


Alternative 
FACT DUP 
DUR 
SWAP 


Fakültätsdef init: 
BEGIN 1 - DUP 
ROT * SWAP 
. DROP ; 


REPEAT 


WH ILE 


ABBILDUNG 4-9: Alternative Definition der Fakultät 


Wie bereits zuvor (4-15) geben wirr iiaiserem Wort den Namen FACT. 
Nun zu den Einzelheiten dieser Definition: Bei Aufruf von FACT 
sollte sich eine Zahl auf dem Stack befinden, deren Fakultät 
berechnet werden soll. Diese Zahl wird zuerst$(,'g|n Zeile 1 dupli 
ziert, ehe wir in die Schleife eintreten. Innerhalb der Schleife 
wird die Zahl als erstes dekrementiert, wir ziehen mittels 1- IL 
von der Zahl ab. Das Wort DUP dupliziert diese dekrementierte; 
Zahl, wonach wir sie stufä -i- erneut dekrementieren . Das Ergebnis 


1,48 
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dieses "Zurückzählens'* testen wir nun mit 0 >. Dieses Wort legt 
bekanntermaßen ein wahres Flag auf den Stack, wenn dessen ober 
ster Eintrag größer Null war. WHILE entfernt dieses Flag; falls 
es w'iäijK'i ist, geschieht nichts weiter. FORTH fährt einfach mit des; 
Schleife fort und führt das DUP aus . Öer Stack enthält nun di© 
fJKiginalzahl, welche wir sj , nennen wollen und darüber zweimal 
diese Origi'jEtSfclzahl um 1 Verhindert. Mit ROT wird die Originalzahl 
an oberste Stack-Position gebracht. Jetzt berechnet das FORTH- 
Wort * das Produkt n* (n-1) und legt es auf den Stack. Nach dem 
SWAP befindet sich, n-1 ah oberster Stack-Posifeiön und n* (n-1) äh 
zweiter Stelle. Danach erfolgt ein Wiedereintritt in die Schlei 
fe. Der oberste Stack-Eintrag wird um 1 vermindert. Nach dem 
zweiten Durchgang durch die Schleife haben wir somit n* (n-1)"* (n- 
2) berechnet. In dieser Art geht das Programm weiter, bis der 
zweite 1— Befehl i=h Zeile 1 die Zahl auf 0 reduziert. In diesem 
Fall ist das Flag falsch. Stößt aber WHILE auf ein falsches Flag, 
dann übergeht es den Rest der Schleife, also die Anweisungen- 7.w : 
sehen WHILE öhÄ REPEAT . Die Schleife wird beendet. Mit SWAP Ln 
Zeile 3 kommt die gewünschte Fakultät an die oberste Stack- 
Position und wird anschließend durch den Punktbefehl ausgegeben. 
Ehe wir die Definition des Wortes beenden, bereinigen wir noch 
mit DROP den Stack. 

Bedingte Schleifen hören*. nur : dann mit der Arbeit auf» wenn eine 
bestimmte Bedingung erfüllt ist. Wenn jföifefs in Ihrem Programm ein 
Fehler befindet, dann kann es sein, daß diese Bedingung nie ein- 
fssitt eine Enal ossch 1 eifo zustande kommt. Wenn beim Austesten 

eines selbstdefi£ft$&£t&) Wortes der;' ^Computer "eihgjlischJ^Jen" 
scheint, dann kann durchaus eine solche Endlosschleif* dafür 
verantwortlich seih. Überprüfen Sie Ihre Programme also sorgfäl 
tig, um es nicht soweit kommen zu lassen. 


4 . 7 Einige zusätzliche Vergleichswörter 


FORTH stellte noch einige weitere Vergleichsworte zur Verfügung, 
die wir in diesem Abschnitt erörtern wollen. Da wir die grundle 
gende FuhtdtikSnsweise 'vöh VergleiCjhswörtern bereits kennengelernt 
zaben, werden wir die neuen Wörter nur kurz vorstellen. 
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?DUP - Dieses Kommando dupliziert die oberste Zahl auf dem Stack, 
y&rausgesetzt, diese ist ungleich 0. Ist der oberste Stack-:?, Ln 
trag aber glersäi- 0, dann p&cht ?DUP nichts. 


ABORT - Das FORTH-Kommando ABORT bereinigt sowohl dort- J)atenst&c£ - 
als auch den Return-Stack, beendet das Programm und übergibt die 
Kontrolle an das Terminal. Man kann damit also sowohl den Stack 
bereinigen als auch ein Programm beenden. Blasige FORTH-Systeme 
verwenden für diesen Zweck ein etwas anderes Kommando, nämlich 
ABORT". Man benutzt es in der Form 


ABORT" text " (4-2.0) 


Die Funktionsweise von ABORT" ist ähnlich wie die von ABORT, 
außer daß dieses Wort aufigpuHSl eines Flags, in Aktion- '.j^t SÜjÖtr . Wenil 
das Flag an oberster Stack-Position wahr ist, dann löscht ABORT" 
ebenfalls die beiden Stacks und beendet das Programm, druckt aber 
zusätzlich noch das TexLmater i aJ zwischen den Anführungszeichen 
äu# -dem Terminal aus. Mäd kann mit ABORT" also die Programmaus 
fflhrung abbrechen, um irgendwelche' ;u-n gewünschten .Effekte zu ver 
hindern. Jst das Flag falsch, dann beseitigt ABORT" einfach das 
Flag und hat ansonsten keine Wirkung. 

Wir wollen ein kleines Beispiel für den Einsatz von ABORT" geben. 
Stellen Sie sich vbr, daß Sie ei&gf Schleife geschrieben haben, 
deren Schleifeninkrement entweder im Programm berechnet oder vom 
Benutzer eingegeben wird. Ergibt sich nun (entweder durch Be rech 
oder durch Benutzereirjtfabe) ein. 'Jnkrement von, 0, so würde 
dies zu einer der gefürchteten Endlosschleifen führen. Sie können 
diesen Fall aber mit ABORT" abfangen. Betrachten Sie dazs§T den 
folgenden Ausschnitt aus einem FORTH-Wort : 

DUP 0= ABORf^PROGRAMM BEENDET " +1,00? 

Der oberste Stack-Eintrag wird dupliziert und anschließend mit 0= 
verglichen. Wir haben jetzt ein Flag auf dem Stack stehen, das 
von ABORT" beseitigt wird. Falls es falsch ist, dann hat ABORT" 
keine Wirkung, Ist das Flag andererseits wahr, dann wird das Pro 
gramm beendet, und wir erhalten die Meldung PROGRAMM BEENDET auf 
dem B i 1 dscf. i rm . 


HP 
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das Schlüsselwort OTHERWISE an. Dahinter können beliebige FORTH- 
Ausdrücke stehen. Anschließend geben Sie das Wort CASEND ein. 

Der ganze Ausdruck funktioniert folgendermaßen: Die Zahlenliste 

korrespondiert mit der Liste von FORTH-Wörterh. Bei Ausführung 
•#© n NCASE wird die oberste Zahl vom Stack entfernt. Falls Sie 
gleich n^ ist, dann wird "WORTA" ausgeführt. Ist die Zahl gleich 
dann kommt "WORTB" an die Reihe. Nur eines der Wörter aus 
dej£ Jfiiste kommt zur Ausführung; die "anweisungen q" werden 
ausqotüh rt . Als nächstes werden - £.^1® vorhanden - die "anwei 

sungen x" hinter dem CASEND -jusge füh.rt. . Entspricht die Zahl, die 
vor Ausführung von NCASE auf dem Stack war, k einer der Zahlen der 
Liste, dann, wird aucsjl. keines der Wörter in der- ’&iste hinter dem " 
auf gerufen. Statt dessen werden die "anweisungen q" abgearbeitet. 
Danach schließen sich die "anweisungen x" hinter dem CASEND an. 
NCASE besitzt folgende Stack-Relation: 


(4-29) 


Jtk Abbildung 4-$j^ sehen Sie ei-ftt Beispiel den Einsatz von 

NCASE. Hierbei handelt es sich um ein Programm, das die zweite 

und dritte Zahl auf dem Stack miteinander addiert, subtrahiert 
oder mult ip-ii ziert . Welche dieser drei- Operationen ausgeführt 
wird, bestimmt die erste Zahl auf dem Stack. Ist der oberste 

Stack-Eintrag gleich 1, dann wird addiert; handelt es sich dabei 
lim. ein® 4, dann wird subtrahiert . Ähnlich sorgt eine 7 für Multi 
plikatiön. (ln der Zahlenliste -Jliftjerhalb von NCASE jftfissen die 

Zahlet)?, 'jnicht 4$ numerischer Reihenfolge stehen. Die erste Zahl 
der Zahlenliste entspricht dem ersten Wort in der Wörterliste, 

die zweite Zahl in der Zahlenliste entsprießt dem zweite® Wort in 
der Wörterliste usw.) 

Betrachten wir nun das Programm. In den ersten drei Zeilen defi 
nieren wir die nSuen Wörter ADDIERE, SUBTRAHIERE und MULTIPLI 
ZIERE, die jeweils 2 Zahlen vom Stack entfernen,, die angegebene 
Operation aus£f|%reii und deren Ergebnis den Bildschirm briö. 

gen. In Zeile 4 beginnen wir die Def Vösii AUSWAHL. Bei 

Ausführung von NCASE wird die oberste Zahl vom Stack entfernt. 
Handelt es sich um eine 1, dann wird das Wort ADDIERE auf gerufen, 
worauf sich die Anweisungen hinter CASEND anschließen. Wurde eine 
7 voffit. Stack ent lernt, dann .wird statt dessen das Wort MULTIPLI 
ZIERE ausgeführt. Ist die auf dem Stack be§p$&dliche Zahl jedoch 
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weder ein© ,1 - noch eine 4 oder 7, dann gelangt keines der Wörter 
zwischen dem Anführungszeichen «|p OTHERWISE zur Ausführung; 
Stflgfe dessen werden diesem Fall,' 'die Anweisungen zwischen: 

OTHERWISE und CASEND bearbeitet. Das bedeutet, daß wifv die Mel 
Ö-ung "FALSCHE AUSWAHL" geben. Die Befehle, die hsh|er CASEND ste 
hen, gelangen also auf jeden Fall zur Ausführung. Das bedeutet, 
daß das Programm stet# mit der Meldung "PROGRAMM BEENDET" auf 
hört . 


Q ( EIN BEISPIEL FÜR CASE ) 

1 : ADDIERE + . ; 

2 : SUBTRAHIERE - . } 

3 : MULTIPLIZIERE * . ; 

4 : AUSWAHL NCASE 4 f; . fl ADDIERE SUBTRAHIERE MULTIPLIZIERE 

Hl OTHERWISE " FALSCHE AUSWAHL " CASEND 

6 . " PROGRAMM BEENDET " J 

1 

8 

9 

1 0 
12 
1'3' 

14 

if 


ABBILDUNG 4-11: Ein Beispiel für den Einsatz von NCASE 


4 . 9 Strukturierte Programmierung 


Äisß Programm ist dann strukturiert , wenn <j*a xCf £ A 1?/ 

(sog. Moduin) gegliedert; <die leicht ijü verstehen und zü ver 

besseiS-i}- sind. FORTfl; -.bietet sichj;, 8p0s^ die strukturierte Program 
mierung geradezu an, .'denn die JS^is.ten Programme werden fast; .;autö 
matisch in kleine selbständige Untereinheiten - die oben erwähn 
ten Module - aufgeteilt. In diesem Abschnitt stellen wir genauer 
dar, wie man strukturierte Programme schreibt . 
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4.9.1 Modularisierung 


Ein FORTH-Programm besteht in der Regel aus einer Vielzahl von 
Kommandos. So haben wir beispielsweise in der Abbildung 4-7 in 
rehhalb des selbstdef lilfterten Wortes PYTHTRIP, welches das Hadfjfc, 
Programm ist, einen Aufruf der selbstdefinierten Wörter SQUARE 
und PT. Wenn es sich um ein sehr kompliziertes Programm handeln 
würde, dann könnte das Hauptprogramm eine Vielzahl anderer 
selbstdef irii^pter Wörter auf rufen. ,^.ese aber könnenfflBjphrerseits 
wieder andere Wörter rufen. Im allgemeinen sollten Sie versuchen, 
Ihre Programme so kurz wie möglich zu halten. Als Faustregel für 
die Länge von. Äfripg rammen gilt., daß sie keinesfalls die Größe 
eines Bildschirms überschreiten sollten. Auf diese Art halten Sie 
jedes Wort möglichst einfach, so daß Sie es leicht testen und 
fehlerfrei machen können. Kompliziertere Programme werden dann 
Äjfe; ,':Hilfe bereits entwickelter ÖJ|'ä getesteter Wörter aufgebaut. 
Dieses Verfahren macht auch die Programmierung im Team möglich; 
verschiedene Prog^ipsierer können so an Jihterschiedlichen Worten 
arbeiten. Natürlich können Sie mit der Arbeit an einfachen Worten 
so lange nicht beginnen, solange nicht die gesamte Struktur des 
Programms festgelegt ist. Dieses muß der erste Arbeitsschritt 


4.9.2 Algorithmen - Progranmentwicklung 


Wenn Sie ein Programm schreiben - egal, ob einfach oder kompli 
ziert - dann müssen Sie sich dafür einen allgemeinen Plan zu 
rechtlegen. Dieser Plan, der die allgemeine Vorgehensweise be 
schreibt, wird auch als Algorithmus bezeichnet» Ehe Sie sich an 
die tatsächliche ProgrammierarbeiJI' ' machen, tfiüssen Sie sich also 
über den zu verwendenden Algorithmus klar werden. Falls das Pro 
gramm einfach ist, dann mag es erscheinen, als ob dieser erste 
Schritt übergangen ur.d das Programm gleich geschrieben werden 
könnte, ih diesen Fällen hat der Programmierer den Algorithmus 
bereits im Kopf. Bel komplizierteren Programmen ist dieses Ver 
fahren unmöglich. Es sollte dann auf jeden Fall erst einmal eine 
" 'doensamm’i. ur.g" angelegt werden, die als Grundlage für die Ver 
:J!%:inestsig des Algorithmus dienen kann . l?ä?i.feft.eth w ir uns an das 
ProblSäp; mit dem pythagoreischen Zahlentripel. Die erste Idee, die 
ein Programmierer teif diesem Problem haben könnte, besteht darin, 
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drei Schleifeil ineinander 4 « Schachteln. Die. - 2 beiden äußeren 

Schleifen sollen der Reihe nach a||. ; # Werte für a ^ un< ^ b* ,r 9 ener; >- e 
ren, während die innere Schleife die Werte» .Sü£" c berechnet und 
diese mit der Summe von a und b vergleicht. Wenn die beiden 
Größen gleich ’Ja.ftsL dann haben wir ein pythagoreisches Zahleni*|p|;. ‘ 
pel gefunden. Dies ist auch die grundlegende Idee, nach der das 
Beispiel 4-7 konstruiert; ist. Na&jS£?iieh ist der Algorithmus jetzt 
noch nicht vollständig. Es gibt noch eine Menge von Details, die 
festgelegt werden müssen. Auch bei einem sehr komplizierten Pro 
gramm würde man ähnlich Vorgehen: zuerst skizziert man das allge 

meine Verfahren. Letztendlich wird dieses allgemeine Verfahren 
dann in Form eines FORTH-Wortes implementiert. In diesem Wort 
kann es eine Vielzahl von Unterworten geben. Solange wir uns noch 
am Anfang der Programmentwicklung bc linden, legen wir nur fest, 
was diese Unterworte leisten sollen, belasten aft$ aber noch nicht 
mit der Frage, wie dies erreicht werden kann. Erst nachdem wir 
das Hauptwort geschrieben und fehlerfrei gemacht haben, wenden 
w L r Uns den einzelnen flhterwgnteli zu und wiederholen dabei dieses 
Vorgehen. Wir entwickeln, Also für/ jedes Unterwort einen eigenen 
Algorithmus, welcher auch auf weitere Unterwörter zurückgreifen 
kann. Wir entwickeln und testen erst einmal diesen Algorithmus, 
ehe wir uns den Unterworterl der nächsten Ebene zuwenden. 

Diesen Sachverhalt kann man in einem hierarchischen Diagramm 
darstellen. Ein Beispiel dafür sehen Sie i.ft Abbildung' 4-12 . Sh 
dieser Abbildung ruft das oberste FORTH-Wort zwei weitere Unter 
worte, a und c. Diese Unterwörter rufen ihrerseits die Unter 
Wörter b, d und e. Dabei greifen sowohl ür.Le rwc rt a als auch Un 
terwort c auf Unterwort d zu. Erst wenn die Beziehung der einzel 
nen Wörter zueinander klar Ist 'Jjjäd Wir uns vergewisseüiy- .haben, 
daß unser Algorithmus fehlerfrei ist, sollten wir anfangen, die 
Worte® fiatsächlie^, in FORTH z-u ilÄplementieren . 

Die eben geschilderte Vorgehensweise rennt man Programmentwick 
lung von oben nach unten (Top-down design) . Sie erscheint dem 
Anfänger oftmals paradox. Man beginnt mit dem hierarchischen 
Diagramm, aus dem man das oberste Wort zur Programmierung aus 
wählt. Dies wird getestet, wobei jedoch noch keines seiner Unter 
Wörter bereits definiert ist. Damit das Hauptwort trotzdem ausge 
testet werden kann, versehen wir die benötigten Unterwörtdr mit 
.Silf sdefifeifeipnenv. sog. Proarammrümpfen . Biese Rümpfe führen 
keine' tatsächlichen Berechnungen Aüs; sie übergebe .'jedoch gege 
benenfalls Testdaten an das Hauptprogramm, damit dieses richtig 
funktionieren kann. 
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I 1 1 

I Unterwort I 
I a I 

I I 


I Unterwort I 
I b I 

I I 


Hauptwort 



Örter wort. 


ABBILDUNG 4-12: Rin: einfaches hierarchisches Diagramm 


Nachdem das Hauptprogramm überprüft" und uns vergewisserf 

haben, daß es rijjjltig" '^EfsSctioniert;, arbeiten wir der Reihe nach 
die einzelnen Unterwörter aus, indem wir deren. Programmrümpfe 

durch tatsächliche Definitionen ersetzen. Bei der Entwiöklpj^' ei- 

r.es Unte rwcrles gehen wir wieder nach der Top-down-Methode vor. 
Verwendet ein Unterwort sciüerse i cs weitere Unterwörter, so 

schreiben wir für diese Unterwörter nur Behelfsdefinitionen (Pro- 
pranur, rümpfe) , um uns ganz der Lösung des gerade betrachteten Pro- 
rlems (des Ühterwortes der ersten Ebene) widmen zu können. Noch 
einmal zu Abbildung 4-12. Als erstes entwickeln wir das Haupt 
woct, wobei wir-' tjfp#- die Unterwörter a und c nur Programmrümpfe 
verwenden. Als nächstes entwickeln and- testen wir Pnterwort a, 
wobei wir Hilfsdefinitionen für die Unterwörter b und d Verwen- 
der. Nachdem Unterwort a auspetestet ist, wenden wir uns dem 

l'r. cerwort b zu. In dieser Art, also von oben nach unten durch das 
heV£i33t^|scHi>' Diagramm gehend, wird jedes einzelne Modul des kom- 
alexen Programms entwickelt und getcscec . Das Verfahren erscheint 
iWnen jetzt .viel.1 eicht umständlich; beim EpttjEftkeln größere#; 
Programme ist es jedoch eine große Hilfestellung. 
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4.10 Übungsaufgaben 


In den folgenden Übungsaufgaben sollen Sie selbst FORTH-Wörter 
definieren bzw. FORTH-Programme schreiben. Überprüfen Sie Ihre 
Lösungen selbst, indem Sie sie auf Ihrem Computer austesten. 
Halten Sie die einzelnen FORTH-Wörter so kurz wie möglich und 
versuchen Sie, komplizierte Aufgaben zu lösen, indem Sie eine 
Reihe von Unterwörtern aus einem Hauptwort heraus auf rufen . 


4-1 Was bedeutet der Ausdruck "Flag"? 

4-2 Schreiben Sie eÜ& FORTH-Wort, das zwei Zahlen süfifcirahiert 
und deren Differenz ausgibt, falls sie ungleich sind, anson 
sten aber die Meldung DIE ZAHLEN SIND GLEICH auf den Bild 
schirm bringt. 

4-3 Schreiben Sie ein FORTH-Wort, das die kleinste Spate drei Zah 
len auf dem Stack ausgibt. Verwenden Sie dazu die Ver 

gleichswörter aus Abschnitt 4-1. 

4-4 Wiederholen Sie Aufgabe 4-3, geben Sie diesmal aber die 

größte von drei Zahlen g*§f dem Stack aus. 

4-5 Wiederholen Sie Aufgabe 4-4, geben Sie diesmal aber den 

größten Absolutwert; -aus . 

4-6 Was bedeutet der Ausdrucif ^bedingte Verzweigung"? 

4-7 Schreiben Sie ein FORTH-Wort, das 3 Zahlen addiert und sie 
mit 4 multipliziert, wenn ihre Summe kleiner 50 ist. Wenn 
die Summe zwischen 50 und 7 0 liegt, dann 'Sollen die Zahlen 
mit 6 multipliziert werden, ist die Summe größer als 70, 
dathli. *p^fcl-ga.£«ieren Sie sie mit 8. 

4-8 Schreiben Sie ein FORTH-Wort^ das die folgende Polynomial- 
Gleichung für verschiedene Werte von x berechnet: 

ix A + gx A + 5x + 3 

dabei soll gelten g = 4, falls x kleiner gleich, 15 ist, und 
g = 9 für x größer 15. 
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4-9 Schreiben Sie ein FORTH-Wort, das die Summe aller Zahlen 
berechnet, 'die zwischen/ 'zin&i'c .In-tegers liegen. Das Wort 

liest also zwei Einträge vom Stack, die den unteren und obe 
ren Grenzwert für die Zahlenreihe angeben, und liefert die 
Summe der Zahlen innerhalb dieser Grenzen, Gehen Sie davon 
aus, daß der kleinere Grenzwert der oberste Suack-Eint rag 
1 

4-10 Schreiben Sie ein FORTH-Wort zur Berechnung des Polynoms 
x' - 2x 2 + 2x - fff. 

für alj% Werte von x zwischen 1 und 20. 

4-jtlL ; Schreiben Sie ein FORTH-Kommando, das die folgende FuÄfii©'ii 
für alle Werte von x zwischen -2 und 5 und für alle Werte 

von y zwischen -6 und 4 berechnet: 

3xy 3 - 2x + 5xy - 3x - 5y + 18 

4-12 Wiederholen Sie Aufgabe 4-9, verlassen Sie diesmal aber das 
Wort mittels LEAVE, wenn die Summe größer als 10000 wird. 

4-13 Schreiben Sie ein FORTH-Wort, das das Produkt alldf ungera 
den Zahlen zwischen- 3| und e : ner ungeraden Zahl an oberster 
Stack-Position; berechnet. Das Programm sollte abbrechen, 
wenn das- Produkt größer 2QC0C wird. In diesem Fall sollten 
Sie eine passende Fehlermeldung ausgeben. 

4-14 Wiederholen Sie Aufgabe 4-12, und verwenden Sie dabei die 

FORTH-Wörter BEGIN-UNTIL . 

4-15 Wiederholen Sie Aufgabe 4-13, und verwenden Sie dabei die 

FORTH-Wörter BEGIN-WHILE-REPEAT . 

4-lö .Die Teilnehmer eines Kurses müssen jeweils 4 Prüfungen able- 
gen. Schreiben Sie ein modu ! a r i siertes FORTH-Wort (also ei 
nes, das seinerseits selbstdefinierte FORTH-Wörter ruft), 
welches folgende Berechnungen ausführt: Die Punktzahl in je 

der der vier Prüfungen wird auf den Stack gelegt. Dann soll 
das Programm den Durchschnitt des einzelnen Studenteip; aus 
diesen vier Tests berechnen und in Abhängigkeit davon eine 
Bewertung ausgeben. Bei einem Durchschnitt von 90 oder bes 
ser erhäii. der Student die Bewertung A. Liegt der Schnitt 
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zwischen 89 und 80, so wird die Bewertung B vergeben. Mit 
einem Schnitt zwischen 79 und 70 erzielt man C, zwischen 69 
und 60 D. Ist schließlich der Durchschnitt des Studenten 
schlechter als 59, dann geben Sie die Meldung DURCHGEFALLEN 
aus. Der berechnete Durchschnitt muß ganzzahlig sein. Wenn 
Sie die ausführen, sollten Sie den Quotienten um 1 

erhöhen, iijalls de#,'£jäivisiönsrest 2 oder mehr beträgt. 

4-17 Diskutieren Sie die Einsatzmöglichkeiten für das FORTH-Wort 

ABORT. 

4-18 Vergleichen Sie die beiden FORTH-Wörter ABORT und ABORT" . 

4-19 Wiederholen Sie Aufgabe 4-16, wobei diesmal das Programm 
nach beendeter Arbeit den Benutzer fragen soll, ob ein 
erneuter Durchgang gewünscht wird. Ändern Sie auch die Form 
der Dateneingabe. Das Programm soll seine Daterii Sr 3 ch c auf 
dem Stack erwarten, sondern sie selbst vom Benutzer abfra- 

4-2Q Wiederholen Sie Aufgabe 4-19, und verwenden Sie diesmal das 
FORTH-Wort NOT. 

4 - 2?f . ' s'ch reifeon Sie ein FORTH-Wort, das mit Hilfe anderer selbst 
definierter FORTH-Wörter für jeden Wochentag eine andere 
Meldung ausgibt. (Denken Sie sieh diese Meldungen -selbst 

4-22 Was bedeutet der Ausdruck 11 strukturierte Programmierung"? 

4-23 Was bedeutet der Ausdruck "Programmentwicklung von oben nach 
unten" (Top-down design) ? 

4-24 Wiederholen Sie die Aufgabe 4-19, wobei Sie diesmal da r.auf 
achten, bei der Programmentwicklung von oben nach unten 
vor zugehen . 
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Fähigkeit im Rechnen, doppelt genauen Zahler!;. J|sicht schon 

Hersteller in Ihr FORTH-System eingebaut sein. Gegebenenfalls 
müssen Sie einige ,$S§&§t2liche Blöcke -0i den Speicher laden,- ehe 
S §e -init diesem Zahlentyp arbeiten können. In vielen FORTH-Imple- 
mentationen gibt es zu den meisten arithmetischen Befehlen für 
einfach genaue Integers ein Gegenstück für doppelt genaue Zahlen. 
Diese wollen wi®; im vorliegenden besprechen. Da die 

ftthisten Details der Arbeitsweise für beide Operationstypen gleich 
sind, werden wir nicht allzu detailliert darauf eingehen. 

D+ - Dies ist das Additionswort für doppelt genaue Integers? D+ 
entfernt zwei doppelt genaue Integers vom Stadt untj legt dort 
ihre Summe (als doppelt genaue Integer) ab. Die Summanden, mit 
denen D+ arbeitet, benötigen also; isjller Stack-Posifaaonen . Leide#; 
gibt es keine Möglichkeit festzustellen, ob die Zahlen; auf dem 
Stack einfach oder doppelt genau sind. Wenn Sie also vier einfach 
genaue Zahlen auf den Stack pushen und anschließend D+- ausführen, 
dann werden die beiden obersten Stack-Positionen so behandelt, 
als handle es sl#h dabei um eine doppelt genaue Integer. Ebenso 
geht es mit dem dritten und: 'dt^örten Stack-Eintrag. Obwohl sich 
also vier einfache genaue Integers auf dem Stack befinden, wird 
FORTH die doppelt genaue Addition mit ihnen ausführen, was natür 
..ijftjch das Ergebnis verfälscht. Die Stack-Relatjjfrdn 'fiir D+ lautet: 

d x d 2 -> d sum (5-1 ) 


Bekannte rmaßen stellen wir mit d eine doppelt genaue Zahl dar, 
während n zur Darstellung von einfach genauen Integers dient. 
Anders gesagt : d steht für zwei Stack-Positionen, während n eine. 

Stack-Position repräsentiert. 


5.1.1 Ein- und Ausgabe von doppelt genauen Integers 


wir. mit doppelt genauen' ■Jjategers rechnen können, müssen wir 
sie irgendwie auf den Stack bringen. Glücklicherweise macht FORTH 
dies automatisch,, werfh 1 'wi# : äfizeigen, daß es Sidh. bei den 

Zahlen um doppelt genaue handelt. Dazu müssen irgendwo irS‘- 

der Zahl einen Dezima ; punkt mit aufnehmen. Wir könnten z.B. 34.56 
schreiben, '^es behände ff?" FORTH., die doppelt genaue Integer 
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3456. Stören Sie sich nicht an dem Dez. iir.a ; punkt : Er dient hiebt 
zur Kennzeichnung 'von Nachkommastellen, sondern stellt lediglich 
ein Signal für den FORTH-Interpreter dar. Genausogut hätten ' wasy 
3.456, 3456., 345.6 usw. schreiben können, denn all diese Dar 
Stellungen sind gleichwertig und bewirken, daß dieselbe Zahl (die 
doppelt genaue Integer 3456) auf den Stack gelegt wird. Über den 
Umgang mit Nachkommastellen (der sog. Gleitkommaarithmetik) wer 
den wir im nächsten Abschnitt noch einiges erfahren. Im Kapitel 
3-3 haben wir bereits erörtert, wie doppelt genaue Zahlen gespei 
chert werden. Erinrierft Sie sich daran, daß die höchstwertige®: 
Bits ei. her doppelt genauen Integer weiter' oben im Stack abgelegt 
werden, so daß man eine positive einfach genaue Integer an ober 
ster ßt eck-PoiS i ikon ganz einfach itt eine doppelt genaue Zahl 
verwandeln kann, indem man eine 0 auf den Stack pusht (vgjsi Ab 
schnitt 3-3) . Wenn wir also die Zahl 35 als doppelt genaue Inte 
ger speichern wollen, dann sind folgende Eingaben völlig gleich. 


35. (RETURN) (5-2a) 

35 0 (RETURN) (5-2b) 


Dieses Thema wird ausführlicher in Abschnitt 3-3 behandelt. 

D, - Das FORTH-Wort D. entfernt die oberste doppelt genaue Inte 
ger vom Stack und gibt sie aus. D. funktioniert also genauso für 
doppelt' genaue Taitegers, wie es das Punktkommando für einfach 
genaue Integers tut. Seine Stack-Relation: 


d -> (5-3) 


Als Beispiel wollen' wir ein FORTH-Wort schreiben^ das die beide® 
obersten doppelt genauen Zahlen vom Stack entfernt und ihre Summe 


: DOPPADD D+ D . ; (3-4) 


Wie Sie sehen können, greife® wir hier im wesentlichen (Söf säie 
selben Ideen wie bei der einfach genauen. Arithmetik zurück. 
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D- - Das FORTH-Wort D- entfernt die beiden obersten doppelt ge 
nauen Integers vom Stack und legt dort ihre Differenz ab. Der 
oberste Stack-Eintrag wird dabei »dp? zweiten subtrahiert . Er 

gebnis ist ebenfalls doppelt genau. Wir haben' (fplgende Stack- 
Relatiöh : 


Dabei ergibt sich d AA als Ergebnis von d A di. Wieder'; 

sehen w|^e, daß D— im wesentlichen genauso funktioniert wie -, 
außer daß jetzt doppelt genaue Zahlen benutzt werden. 


5.1.2 Multiplikation und Division 


Die FORTH-Kommandos zur Multiplikation und Dijfision vör. doppelt;, 
genauen Integers sind kein Bestandteil von FORTH-79. Sie sind je 
doch vliSi MMSFORTH und anderen FORTH-SySternen implementiert. Auch 
diese Wörter entsprechen; ihren ein-fiädfc genauen Gegenstücken • So 
entfernt z.B. D* die beiden obersten doppelt genauen Integers vom 
Stack und ersetzt sie durch '$0$ Produkt. Das Ergebnis ist eben 
falls eigi©! doppelt genaue Integer. 

;|iifr Division von doppelt genauen Zahlen benutzt man in DÖRTH die 
Wörter D/ und D/MOD. Auch diese beiden Kommandos funktionieren 
ähnlich wie ihre e ; hfach genauen Entsprechungen. 

In- fielen Programmen werden sowohl einfach genaue als auch dop 
pelt genaue Integers beipfeigt . Die Größen, ein Programm be 

rechnet, können z.B. doppelt genau so i n, während Schleifenpara 
Ipster ih der Regel ei$i$Seeh genaue Zahlen sind. Als Beispiel für 
das Mischen dieser beiden Zahlentypen schreiben wir unser Faköj- 
tätsprogramm erneut (vgl. Abb. 4-6), wobei wir diesmal doppelt 
genaue Integers verwenden. Beachten Sie, daß 8! = 40320 gilt. 
Diese Zahl kann nicht mehr als einfach genaue Integer dargestellt 
werden. Sie sehen das Programm ‘ Abbildung 5-1. Gehen wix es 
einmal im Detail durch. 
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i) ( Doppelt genaue Fakultätsberechnung ) 

,1 : FACT 1 | SCL* C ' '•%/ i 4 ROLL SWAP 

2 DO I 0 D* LOOP D. 

3 


ABBILDUNG 5-1: Ein FORTH-Wort, das die Fakultät 
mit doppelter Genauigkeit berechnet 


Wir nehmen an, daß Sie mit dem Fakultätsprogramm aus Abbildung 4- 
6 bereits vertraut sind. Wenden wir uns jetzt Abbildung 5-1 zu. 

Das Programm geht davon aus, daß die Zahl, deren Fakultät be rech, 
net werden soll, als einfach genaue Integer auf dem Stack liegt. 
Als erstes addieren wir 1. .-zu dieser fSahl . Im nächsten Schritt 
legen wir eine doppelt genaue 1 aiiif den Stack, und zwar* indem 
wir zuerst eine 1 und anschließend eine 0 auf den Stack pushen. 
Ebensogut hätten wir dem Interpreter anzeigen können, daß es sich 
(jiii eine doppelt genaue Zahl handelt, indem wir 1. anstelle doBj, .$» 
und der 0 eingeben. Nach Ausführung von 4 ROLL und SWAP enthält 

der Stack (von oben nach unten) eine 1, die Zahl, deren Fakultät 

berechnet werden soll erhöht . " , iiad die doppelt genaue Integer;; 
1. Mit dem FORTH-Wort DO auf Zeile 2 treten wir in die Schleife 
eili» Dadurch werden die beiden obersten Stack-Einträge vom Para 
meter-Stack entfernt, und auf" den Return-Stack gelegt. Innerhalb 
der Schleife besorgen wir uns als erstes den Schleifenindex durch 
das FORTH-Wort I und machen diesen zu einer doppelt genauen Zahl, 
indem wir eine Null auf den Stack pushen, Der restliche Tei|| des 
Programms funktioniert genauso, wie Sie es von der Abbildung 4-6 
her schon kennen, außer daß die doppelt genaue Multiplikation, 

benutzt wird. Da das Ergebnis doppelt genau ist, muß auch zur 
Ausgabe das Kommando D. geschrieben werden. 


5.1.3 Stack-Manipulationen mit doppelt genauen Integers 

Die dazii: jjjtjjylgen FORTH-Kommandos haben wir bereits aus führ li-sS? ij$h 
Abschnitt 2-5 besprochen. 
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5.1.4 Vergleichswörter 

Auch einige Verg 1 eichswörtcr, die »3$! Abschnitt 4-1 kennenge 

lerjijt haben, haben ihre Entsprechung Jur doppelt genaue Zahlen. 
Das FORTH-Wort D= entspricht dem bekannten =. Das bedeutet, daß 
D= die beiden obersten doppelt genauen Integers vom Stack ent 
feint; und durch ein Flag ersetzt. Dieses ist wahr, wenn die bei 
den Zahlen gleich waren. Ansonsten hat das Flag den Wahrheitswert 
"falsch". Denken Sie daran, daß ein Flag stets eine einfach ge 
naue Integer ist. Deshalb haben wi$S; -^folgende Stack-Reiätisii: 


d, ( 


n f lag 


(5-6) 


Das FORTH-Wort IX entspricht <• Bei Ausfö'Krürig vorf D< werden die 
beiden obersten doppelt genauen Integers vom Stack entfernt und 
durch ein Flag ersetzt., Dieses hat den Wahrheitswert "wahr", wenn 
die zweite doppelt genaue Integer auf dem Stack kleiner als die 
erste ist. Die Stack-Relation ist die gleiche wie in 5-6. 

Für den Vergleich Von doppelt genauen Zahlen stellt» FORTH nicht 
so viele Wörter zur Verfügung wie für einfach genaue Zahlen. Die 
sen Mangel kann man jedoch einfach beheben, indem man sich seine 
eigenen Vergleichswörtet? schreibt . Wir können ein Wort dop 

pelt genaue Zahlen schreiben, das dem bekannten > entspricht; 
geben w '.‘r/.'-ihift den Namen DD> . Es soll die beiden obersten doppelt 
genauen integers vom Stack entfernen und dort ein Flag ablegen. 
Dieses Flag wird "wahr", wenn die zweite doppelt genaue I-htege^. 
auf dem Stack größer als die erste doppelt genaue, integer auf dem 
Stack Ist. Die Definition dieses Wortes sehen Sie in Abbildung 5- 
2, Als erstes duplizieren wir die oberste doppelt genaue Integer. 
Als nächstes transportieren wir die ursprüngliche zweite doppelt 
genaue Integer" =ftn oberste Stack-Positi33iJi indem «Slip das Wort 2ROT 
aapfpstfen. Diese Zahl wird als nächstes dupliziert. B®3 weiteres 
2R0T sorgt dafür, daß der Stack nun folgendermaßen aussieht: d A 

dj d. d~ . Die» .ursprüngliche Stack-Konfiguration lautete: d x d£ . 

Jetzt röhren wir- den ersten Vergleich äStJi D< aus . Wir erhalten 
hün ein Flag auf dem Stack, das "wahr"- .ist, falls d. A kleiner als 
2 ist. Dieses Flag machen wir zu einer doppelt genauen Integer, 
indem wir zusätzlich eine 0 auf den Stack legen. Zweimalige Aus 
führung von 2R0T bringt erneut die ursprünglichen zwei doppelt 
genauen Zahlen zuoberst auf den Stack. Da wir als nächstes einer!' 
Vergleich nrif? D= ahstellete- ispielt es keine Rolle, iö welcher 
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Reihenfolge sich diese beiden Zahlen in den ersten beiden Stack- 
Positionen befinden. Der Vergleich mit D= hinterläßt ein Flag, 
unter dem sich aSSf dem Stack eine 0 und ein weiteres Flag befitt 
den» ROT holt diese beiden Flags nun nach oben. Wenn eines von 
ihnen "wahr" ist, dann sollte DD> als Ergebnis ein "falsches" 
Flag liefern. Die einfache Additi'bö mittels +, : ; di©' in diesem Fall 
ausreichend ist, liefert ans titln entweder eine 0, eine 1 oder 
eine 2. Erhalten wir die 1 oder die 2, dann sollte DD> ein "fal 
sches" Flag hinterlassen. Im Falle der 0 wird DD> aber wahr; 
diesen: Fall 'testen wir durch 0=. Wir erhalten somit nur dann ein 
"wahres" Flag, wenn beide $$$& Vergleich herangezogenen Flags 
dem Stack den Wahrheitswert "falsch" haben. 


0 ( Doppelt genaues Vergleichswort ) 

1 : d|^ tmjP 2 ROT 2DUP 2ROT 

2 D< 0 2 ROT 2 ROT D= ROT 

3 + 0= DROP 

4 


ABBILDUNG 5-2 Vergleich zweier doppelt genauer Integers 


5.1.5 Weitere Befehle für doppelt genaue Integers 


Wir stellen hier noch eine Reihe weiterer Befehle ybr, die ähh 
lieh wie „einige bereits bekannte Wörter arbeiten, aber für dop 
pelt genaue Integers vorgesehen sind. 

DNEGATE - Das FORTH-Wort DNEGATE ist die doppelt genaue Entspre 
chung von NEGATE (vgl. AbsChhl^tt 2-7) . DNEGATE ändert das vgtzei 
chen der doppelt genauen Integer an oberster Stack‘-PoÄ|;i#h. 

DMIN, DMAX Uf4 DABS - Diese drei FORTH-Wörter entsprechen den 
bereits bekannten Befehlen MIN, MAX und ABS, die Sie in Abschnitt 
2-7 kennengelernt haben. DMIN entfernt z.B. die beiden obersten 
doppelt genauen Integers vom Stack und legt die kleinere der 
beiden dort ab. FORTH-Wort DABS ersetzt die oberste doppelt 

genaue Integer auf dem Stack dujSjlh ihren Absolutwert . 
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D#IN - Das FORTH-Wort D#IN entspricht dem bekannten #IN (vgl. 
Abschnitt 3-1 ) *. .Das Kommando findet sich nicht in MMSFORTH. Bei 

äjlBp von D#IN Unterbricht der FORTH-InterpretejJ'. -jseine Berech 
nungen und gibt ein Fragezeichen auf dem Bildschirm aus. Der 
Benutzer; Stenfij non eine doppelt genaue: Integer eingeben und «pl 

schließend die RETURN-Taste drücken. Selbst wenn die eingegebene 
Zahl keinen Dezimalpunkt enthält, so wird sie von D#IN als dop 
pelt genaue Integer behandelt. Die Stack-Relation zu diesem Wort 
ist : 


-> d (5-7) 


5 . 2 Formatieren von Zahlen 


Auch bei doppelt genauen Integer s besteht die Möglichkeit- 
formatierten Ausgabe, ähn.l'iöh', wie wir es bereits in Abschnitt 3- 
3 besprochen haben. Dabei muß man nur in einigen Fällen andere 
Befehle für doppelt genaue Integers verwenden, kärüji jedoch rijöi'. 
stens auf die;- sfcpjf-’ eiiWfiäche Zahlen bereits vertrauten Wörter zu 
rückgreifen . 


5.2.1 Datenfelder 


Das FORTH-Wort D.R entspricht dem in Abschnitt 3-3 bereits disku 
■federten .R. Bei Ausführung von D.R sollten sich mindestens zwei 
Werte auf dem Stack befinden, nämlich eine einfach genaue Integer 
an oberster Stack-Position, und darunter eine doppelt genaue Inte 
ger. D.R entfernt diese beiden Werte vom Stack. ^jfeLe einfach ge 
naue Integer gibt die Breite des Felds alffe (ÄÄ dem die doppelt ge 
naue Zahl ausgegeben werden soll. Wir haben also folgende Stack- 
Re tai'ion ; 

d n -> (5-8) 

Ansonsten gelten alle in Abschnitt 3-3 angesfcfipjlten Überlegungen 
für das Ausgeben von Zahlen in Datenfeldern auch für doppelt ge 
naue Integers . 
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gar erst an!) Andererseits ist das Endergebnis 368,2* 

zu groß für das System. Wir könnten diese Schwierigkeit umgehen, 
indem wijf: mit doppelt genauen Zahlen arbeiten. Diese benötige® 
aber bekanntermaßen mehr Rechenzeit und Speicherplatz. Zum Glück 
stellt FORTH ein Wort bereit, das die Arbeit mit großen Produkten 
als Zwischenergebnis erlaubt, ohne daß wir bei unseren Berechnun 
geti:'Sof doppelt genaue Integers zdrückgrgifen müssen. 

*/ - Das FORTH-Wort */ arbeitet mit drei einfach genauen Integers 
auf dem Stack. Es hat folgende Stack-Relation: 


n 


"2 ’3 




(5-12) 


Seine Arbeitsweise ist wie folgt: Zuerst wird das Produkt » A * n , 

berechnet. Das Ergebnis dieser Multiplikation wird als doppelt 
genaue Integer gespeichert. Diese wird anschließend durch n_ 
diyi'diedt . Das Endergebnis wird als aiJJ'K&XJfe genaue ;|®f.eger ätre 
den Stack gepusht., dadurch, daß das Zwischenergebnis (das Pro 
dukt) doppelt genau gespeichert ist, ergeben sich keinfe Überlauf 
Probleme, (d.h., es kann nicht passieren, daß das Zwischenergeb 
nis zu groß wird) . Der Benutzer muß sich jedoch bei der Arbeit in 
seinem Programm nicht mit den Details für den Umgang mit doppelt 
•genauen Integers befassen. Wir können jetzt die Berechnungen aus 
Beispiel 5-10 neu schreiben: 


624*/ (RETURN) 


(5-13) 


*/MOD - FORTH-Wort */MOD funkt&shiert genauso wie */, außei 

daß es zwei einfach genaue Integers als. Ergebnis liefert. Bei der 
einen handelt es sich um den Quotienten, während die andere der 
Divisionsrest ist. Wir haben also folgende Stack-Relation: 




Der oberste Stack-Eintrag nach Ausführung von */MOD stellt den 
Quotienten deif • dar, während der zweite Stack-E i ntraq der 

Divisis^fisrest ist . 
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D*/ und D*/MOD - Riese beiden FORTH-Wörter funktionieren genauso 
wie */ und */MOD, außer daß sie mit doppelt genauen Zahlen arbei 
ten. Als Zwischenergebnis wird ein Produkt in zwei aufeinander 
folgenden doppelt genauen Integers abgelegt, d.h., das Zwischen 
ergebnis wird in vierfacher Genauigkeit dargestellt. Dadurch kön 
nen wir die Vorteile der beiden eben eingeführten Arithmetik“ 
Wörter auch für doppelt genaue 3|jitegers nutzen. D*/ lijjä D*/MOD 
sind ebenfalls nicht Teil von FORTH-79, jedoch im MMSFORTH imple 
mentiert . 


5.3.1 Skalieren von Berechnungen 


Was macM; man, wenn man h)i'£ Zahlen mit Nachkommastellen (z.B. 
Geldbeträgen) rechnen muß, jedoch nur Integers in seinem System 
zur Verfügung hat? In diesem Fall bedient man sich eines Verfah 
rens, das den Namen Skalierung trägt. Als Beispiel nehmen wiir uns 
vor, die Provision eines Verkäufers zu berechnen. Dabei müssen 
wir mit DM- und Pfennigbeträgen rechnen. Außerdem ist es erfor 

def*'#ch, einen bestimmten Prozentsatz der Umsätze des Verkäufers 
zu berechnen. All diese Oper^ljJonen haben mit Dez'Jijittljärüchen zu 
tan. Dennoch können wir in unseren Berechnungen mit Integers 
arbeiten. Angenommen, wir haben es mit einem Betrag von 56,42 DM 
zu tun. Wenn wir diesen Betrag mit 100 multiplizieren, dann kön 
nen wir ihn als die Integer 5642 darstellen. Weilij DM-Beträge mit 
100 multipliziert werden, dann kann man sie also als Integers 
repräsentieren. In diesem Fall sagt man, daß der Betrag mit dem 
Skalierungs.f aktor i.0'0 multipliziert wurde. Auch bejE) '-den eben 
eingeführten Worten */ und */MOD kann man von einer bestimmten 
Art von Skalierung sprechen. Schließlich skaliert FORTH autoraa 

tisch doppelt genaue Integers; wenn Sie eine Zahl mit einem Dezi 
malpunkt an beliebiger Stelle innerhalb der • Z, : i f fernf o J ge einge 
ben, dann wird diese Zahl autgjijäkt^sch als doppelt genaue Integer 
behandelt. Wenn Sie aber nicht mit automatischer Skalierung ar 
beiten, sondern die Skalierungsfaktoren selbst bestimmen, dann 

müssen Sie sehr vorsichtig vorgehen,* Insbesondere müssen alle 
Werte mit; demselben Faktor skaliert werden. Bei Eingabe vor. 45.78 
und 4.578 behandelt FORTH diese beiden Werte als die gleiche 

Zahl. Sieht man diese beiden Werte jedoch als Geldbeträge (mit 
DekiftZißUpkt; wie in Amerika üblich) an, dahß ist der eine Betrag 
zehnmal größer als der andere. 
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Wie Sie sehen können, sind die solcherart eingegebenen Daten be 
i?öits skaliert . SUMME legt Ölilfe : wetjü es gerufen wird, eine 1 l&jif 
den Stack und tritt in eine DO-Schleife ein. Das DO-Wort findet 

vorschr i f Lsmäß : g den Anfangswert? ifiifj? den Schleiftehindex und deh 

Testwert auf dem Daten-Stack vor, welche es von dort entfernt und 

auf den Return-Stack legt. Im Falle des Beispiels 5-15 bedeutet 

dies, daß zwei Schleifendurchgänge statfcifinden, d. h . ■ diesem 

Fall, daß zweimal addiert wird. Nadja. ‘Verlassen der SchleijSs habei| 
wir also die Summe der vom Verkäufer getätigten Umsätze. Wenden 

wir uns nuii. dem Hauptwort PROVISION zu. Dieses ruft als erstes 

das bereits besprochene SUMME, um den Gesamtumsatz zu erhalten. 
Um. ftiqijk '15 % 'VdB dieser Summe berechnen können, pushen wir 'Jf> 

uöd 100 (in dieser Reihenfolge) auf den Stack und rufen das 
arithmetische Wort */. Dies bewirkt, daß der Gesamtumsatz mit 15 
multipliziert und anschließend 100 dividiert wird. Wi|r« 

haben, .spirtiit die gewünschten % des Gesamtumsatzes berechnet. 

Diesen Betrag wollen wir jetzt ausdrucken, wobei sich das Dezi 
malkomma an der richtigen Stelle befindet. Dazu dienen die Anwei 
sungen $$._ Zeile 3,: die ein weiteres Beispiel füt die Zahlenaus 

gäbe iBiit Maske (vgl. Abschnitt 3 - 3 ) darstellen. Die auszugebende 
Zahl wird erst einmal doppelt genau gemacht, indem eine 0 auf den 
Stack gepusht wird. Die Ausgabemaske bewirkt, daß die beiden 
niedrigstwertigen Dez I ma izi ffern der Zahl r<s| 3 fa'ts vom Dezimalkomma 
ausgegeben werden. Dies ist völlig analog zu den Beispielen in 

Abschnitt 3 - 3 . 

Wenden wir uns fggn dem zweiten Beispiel Abbildung 5—3 zu, 

welches mit doppelt genauen Integers arbeitet. Jetzt sollten Sie 
bei der Dateneingabe den (in Amerika üblichen) Dezimalpunkt mit 
eingeben und dabei das übliche Format für Geldbeträge verwenden. 
Die Daten aus Beispiel 5-15 müssen also folgendermaßen eingegeben 


45.09 56.32 103.45 3 ( 5 - 16 ) 


Die Anzahl der Eingabedaten (3) geben wip nach wie vor als ein 
fach genaue Integer an. Das Wort zur Summenbildung - DSUMME 
f unkt ion : e rt. im wesentlichen genauso wie SUMME, außer daß doppelt 
genaue Addition mittels D+ ausgeführt Wird. Ebenso ist DPROVISION 
im wesentlichen dem Wort PROVISION ähnlich. Unterschiede ergeben 
sich daraus, daß wir zur Berechnung des Prozentsatzes den doppelt 
genauen Operator D*/ verwenden wollen. Deshalb müssen wir die 
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Konstanten in der Form 1^. und 100. eingeben, damit sie von FORTH 
als doppelt genaue Werte interpretiert werden. Weil D*/ ein dop 
pelt genaues Ergebnis liefert, müssen wir nicht erst eine Null 
auf den Stack hieven, ehe wir das Ergebnis mit der Druckmaske 
ausgeben können. 

Nicht alle FORTH-Systeme verfügen über D*/. Wenn Ihr System al 
ierdings die Wörter D* und D/ kennt, dann können Sie trotzdem mit 
DPROVISION arbeite?!; allerdings ist es dann nicht möglich., Zwi 
schenergebnisse mit vierfacher Genauigkeit zu speichern. 


5 . 4 Berechnungen im gemischten Modus 


Manchmal ist es nötig, bei einer Berechnung sowohl 'einfachen 

als auch mit doppelt genauen *|§gjtegers-. Wh arbeiten. Wir wissen ja 
bereits, daß manchmal das Produkt zweier e Lnfach genaust. Integers 
zu groß ist, um in einer einfach genauen Integer Platz zu finden. 
Wenn beide Zahlen positiv sind, dann können wir mit der bereits 
bekannten Methode (0 auf den Stack pushen) zur rechten Zejif aus 
den Multiplikanden doppelt genaue Zahlen machen und unser Ergeb 
nis mit doppelt genauer Multiplikation berechnen. Einige FORTH- 
Systeme verfügen jedoch über Wörteali. die dem Benutzer) itt diesen 
Situationen die- Arbeit erleichtern. Sie sind zwar kein Te»;, von 
FORTH-7 9, stehen jedoch in MMSFORTH und anderen FORTH-Systemen 
zur Verfügung. Kommen-' in einer Berechnung unterschiedliche Zah 
lentypen - m diesem Fall einfache und doppelt genaue integers - 
vor, so spricht man von, Berechnungen im m gemisc hten Modus. Dem 
gemischten Modus gilt unser Interesse in diese» Abschnitt.. 

M* - Das FORTH-Wort M* entfernt zwei einfach genaue Integers vom 
Stack, berechnet ihr Produkt als doppelt genaue Integer und legt 
diese auf den Stack. Wir erhalten folgende Stack-Relation: 


So berechh&t beispielsweise das fjbigende Wort das Produkt, zweies? 
einfach genauer Zahlen mit doppelter Genauigkeit und gibt es auch 
als doppelt genaue Integer aus: 
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: MIXMULT M* D. ; (5-18) 

M/ und M/MOD - Wir wissen beÄgitÄy daß es oftmals sehr gelegen 
kommt, das Produkt zweier einfach genatf^if Zahlen mit doppelte!?. 
Gefälligkeit zu erhalten. Umgekeljäteß kann es aÄC-h nütJfiMi-eli sein, 
sowohl den Quotienten als auch den Rest der Division einer dop 
pc 1;fe. genauen Ir.tcge r SSpemSj eine e I nfach genaue Integer mit einfa 
eher Genauigkeit darzustellen. Bei einer solchen Operation im 
gemischten Modus liefert das Wort M/ den Quotienten mit einfacher 
Genauigkeit. Wir erhalten folgende Stack-Relation: 


Beachten Sie, daß die doppelt genaue Integer (an zweiter und 
dritter Stack-Position) durch die einfach genaue Integer an ober 
ster Stack-Position dividiert wird. Diese beiden Zahlen (also 
insgesamt drei Stack-Positionen) werden vom Stack entfernt ur.d 
durch den einfach, genauen Quotienten ersetzt. 

Das Wort M/MOD funktioniert ähnlich wie M /, außer daß es als 
Ergebnis zwei einfach genaue Integers liefert. Eine davon ist der 
Quotient, während die andere den Divisionsrest darstellt . Die 
Stack -Re Nation lautet : 


d 


rest n qüot 


(5-20) 


Beachten Sie, daß sich der Quotient an oberster Stack-Position, 
befindet . 


M+ und M- - 7, um Addieren einer doppelt genauen Integer mit einer 
einfach genauen Integer dient das Wort M+. Das Ergebnis dieser 
Operation ist natürlich eine doppelt genaue Integer, weswegen die 
Stack-Relation lautet: 


d 


(5-21)( 
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Beachten Sie, daß sich die genaue Zahl an oberster Stack- 

Position befinden muß. Auch Subtraktionen im gemischten Modus 
sind möglich; dazu bedient man sich des Wortes M- . Es hat die 
Stack-Reletxoh : 


d»-> d dl; <5-22, 

Wie Sie sehen, wird die einfach genaue Integer' -an oberster Stack- 
Position von der doppelt genauen Integer subtrahiert, die die 
zweite und dritte Stack-Position belegt. Das Ergebnis, welches 
die beiden Argumente der Operation erset^äfc^ wird in doppelte^ 
Genauigkeit dargestellt. 

Sollte .Stin FORTH-System über M- nicht verfügen, so können Sie 
sich zumindest für positive Zahlen leicht ein eigenes Wort defi 
nieren, das dieselbe Wirkung hat. Seine Definition lautet: 


: MIX— 




(5-23) 


Mit dem erprobten Trick machen wir' :der einfach genauen Inte 

ger an oberster Stack-Position eine doppelt genaue, so daß wir 
das Wort D- rufen können. 

M*/ - Dieses Wort funktioniert ähnlich wie */ oder D*/, außer daß 
es im gemischten Modus arbeitet, also das Produkt einer doppelt 
genauen Integer mit einer einfach genauen Integer berechnet, die 
ses Ergebnis mit dreifacher Genauigkeit speichert (ajdd dre$> 
Stack-Positionen dazu benötigt) und anschließend durch eine ein 
fach genaue Integer dividiert. Der Quotient dieser Division wird 
jiiii; d’iftfacher Genauigkeit!' dargestellt. Es eöjiöf sich, folgende 
Stack-Relation: 


d 


n 2 




(5-24) 


Dabei wird das Produkt aus d und n. A berechnet und anschließend 
durch dividiert . 
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5.5 Vorzeichenlose Zahlen 


Alle '$Mg den bisherigen Programmbeispieien verwendeten Zahlen 
waren mit einem Vorzeichen versehen. Sie konnten also entweder 
positiv oder negatür se||| was bei der Ausgabe durch ein Vörge 
stelltes Minuszeichen bzw. das Fehlen desselben angezeigt wird. 
Sie haben bereits erfahren, daß Ihr Computer Zahlen intern als 
Folgen von Nullen und Einsen (sog. Bits) speichert, also in der 

Binärdarstellung (vgl. Abschnitt 1-2). Eines dieser Bits benutzt 
der Rechner dabei, Spe i chorung des Vorzeichens. Allerdings 

ergibt sich eine negative Zahl nicht einfach aus einer posfgj^ven, 
indem man das entsprechende Btt verändert! Arbeiten wü -aus 

schließlich mit positiven Zahlen, dann brauchen wir keine Vorkeh 
rungen für negative Zahlen zu treffen und können deshalb auf 

dieses Vorzeicher.b :.t yerz.tfchL.er. . Es steht dann hu-r- Verfügung, um 

den Absolutbetrag der Zahl, repräsentieren, wodurch der Werte 

Vorrat der darstellbaren Zahlen vergrößert wird. In einem typi 

sehen FORTH-System werden in der Regelt 16 Bits für die Dar 
Stellung von vorzeichenbehafteten e : nfa.ch genauen Integers ver- 
wendet. Wie bereits mehrfach ausgefüKÄ^ können satche. Zahlen- im 
Bereich zwischen -32768 und 32767 liegen. Wenn wir nun diese? 
Bits ausschließlichen Darstellung von posS^JvÄÄ -Z-äKlen be-haf: 

zehr dann- können WmT damit Zahlen zwischen 0 und 65535 repräsen 
tieren. FORTH erlaubt es, einfach genaue Integers so zu behan 
dein',-', als ob sie ke.s-<v: Vorzeichen hätten. Allerdings sollte® Sie 
sich darüber im klaren sein, daß Sie einer Zahl auf dem Stack 
nicht ohne weiteres ansehen können, ob sie vorzeichenlos oder mit 
einem Vorzeichen versehen ist. Es liegt allein in Ihrer Verant 
wo'ffcüBg-, ob das Programm die Zahlen richtig! interpretiert. 

U. - 13a s FORTH-Kommando U. arbeitet wie das Punktkommando in 
FORTH, außer daß es davon ausgeht, daß die. ^stügebende Zahl von 
zeichenlos ist. Seine Stack-Relation lautet: 


(5-25) 


Wie Sie sehen können, stellen wir vorzeichenlose Zahler!- huf dem 
Stack durch den Buchstaben *u" dar. öer PlatzbedaäMif Von vötzei 
chenlosen Zahlen ist der gleiche wie der von einfach genauen 
Integers; Zahlen vom. Typ "u" und ”n” beanspruchen also beide 
genau eilig, -'Stack-Position . Man kann also sagen, daß U. die ober- 
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ste einfach genaue Integer vom Stach entfernt' und als vorzeichen- 
-ose Zahl ausgibt. Wiir wollen einmal an einem kleinen Beispiel- 
orogramm den Unterschied zwischen vorzeichenlosen Zahlen und 
solchen mit Vorzeichen demonstrieren. Betrachten Sie das folgende 
wer t: 


: CHECK DUP U. . ; (5-26) 

•Offensichtlich dupliziert CHECK die oberste einfach genaue Zah^ 
auf dem Stack und gibt sie einmal als vdrheichenlose; uhd einmal 
als "gewöhnliche" Integer aus. Beil Hingabe von 

3 CHECK 

erhalten wir .als Ergebnis 
3 3 

Weati eine Integer also posipiSlV dann ist ihre vorzeichenlose 

^mterpretatiön i dent Lsch mit der vorze: chcnbehafteuen . Ganz an 
ders sieht es bei negativen Zahlen' aus. Probieren Sie einmal das 
folgende : 

-1 CHECK 

Dies, liefert das Ergebnis 
65535 ■tfj.rj a 

Dies bedeutet, daß die BiaEhdarstellung der vorzeichenbehafteteh: 
•Zahl -1 gleich ist wie die der vorhelchenlosen 65535. 

U.R - Das FORTH-Wort U.R dient der Ausgabe Von vorzeichenlosen: 
Zahlen und entspricht weitgehend dem bereits bekannten .R (vgl. 
Abschnitt 3-3) . U.R erwartet jedoch, daß es eine vorzeichenlose 
Zahl ausgeben soll. Seine Stack-Relation lautet: 
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Wie bei .R gibt der oberste Stack-Eintrag die Feldbreite an, 
während der zweite Stack-Eintrag die auszugebende Zahl darstellt. 
Beide Werte werden durch U.R vom Stack entfernt. I§£. das angege 
bene Feld nicht breit genug für die Ausgabe dieser Zahl, so 
kümme|jfj£, sich FORTH nicht um diese Angabe und legt selbst ein aus 
reichend breites Feld an. 

ü* - Dieses FORTH-Kommando dient der Multiplikation zweier vor 
zeichenloser Integer. U* entfernt di® «obersten zwei Zahlen vom 
Stack, bildet ihr Produkt und legt es als vorzeichenlose doppelt 
genaue Integer auf den Stack. Dadurch wird der Darstellungsbe 
reich des Ergebnisses noch einmal beträchtlich vergrößert, da 
vorzeichenlose doppelt genaue Integers p 4254967295 groß 

seih können. Wir haben folgende Stack-Relafifsn : 


Zur Darstellung einer doppelt genauen vorzeichenlosen Integer 
verwenden wir also ein w "i3®i mit dem Index "d" . Zur Ausgabe dieses 
Zahlentyps gibt es keine eigenen FORTH-Worte; dies kommt daher, 
weil dieser Datentyp hauptsächlich zur Speicherung von Zwischen 
ergcbpESiser) «tfient . Wir wenden uns deshalb der Frage zu, wie man 
aus vorzeichenlosen doppelt genauen Integers vorzeichenlose ein 
fach genaue Integers machen kann. 

U/MOD — Das FORTH-Kommando U/MOD sorgt dafür, daß die vorzeichen- 
lose doppelt genaue Integer in zweiter und dritter Stack-Position 
durch die vorzeichenlose einfach genaue Integer an erster Stack- 
Posi.'t ion dividiert wird. ffjäese beiden Werte werden Vö#'. Stack 
entfej$ÖV und ah ihrer Stelle werden Quotient und Bivispqoxjhrest 
dort abgelegt. Es ergibt sich folgende Stack-Relation: 




(2-29) 


Sowohl Quotient als gpdh Rest werden als vorzeichenlose ejofäch 
genaue Zahlen ausgegeben. Denken Sie daran, daß Sie sich diese 
Werte;'äiif.t dem Kommando U. nicht einfach dem Püfliktkommando 

ansehen müssen, um das korrekte Ergebnis zu erfahren. 
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U< - Dieses FORTH-Wort dient zum Vergleich zweier vorzeichenloser 
Zahlen. Es liefert ein Flag, das "wahr" ist, wenn die zweite Zahl 
auf deft Stack kleiner ist als die- erste Zahl auf dem Stack. Beide 
zu vergleichenden Zahlen müssen vorzeichenlosef^Jntegers sein, 
weswegen sich folgende Stack-Relation ergibt: 


f lag 


(5-3Ör 


Das Flag ist alscs' ftür dann "wahr", wenn kleiner als U£- ist . 

DO und /LOOP - Um die Anzahl der Durchgänge durch eine unbedingte 
Schleife größer zu machen, ist es fttög-lich, diese Parameter als 
vorzeichenlose Integers anzugeben. Solche Schleifen müssen aller 
dings mit Hilfe des Wortpaares DO und /LOOP auf gebaut werden. Die 
beiden Wörter&J-^aunktionieren genau wie die bereits bekäMffcen DO 
und +LOOP, außer daß die Schleifenparaiftster als vorze Lehen I ose 
einfach genaue Zahlen behandelt werden. Ansonsten gilt für solche 
Schleifen alles, was bereits in Abschnitt 4-3 gesagt wurde. 


5 . 6 Bit-Operationen 


Wie Sie wissen, spe : eher© Computer intern alle Zahlen in de©' 

Binärdarstellung. Die BiltärdarsteljlSjptgr eines ?ahl besteht aus 
einer Folge von Nullen und Einsen. Jede dieser Nullen bzw. Einsen 
trägt den Namen Bit . Gelegentlich istj- .^s nützlich, die einzelnen 
Bits, die £tr©/*®*a3Sstellung einer Binärzahl dienen, gezielt jaaQJHS 
lieren zu können. In diesem Abschnitt werden Sie FORTH-Wörter 
kennenlernen, mit denen das möglich ist. 

Wenn einzelne Bits manipuliert werden, dann geschieht dies mit 
Hilfe sog. Einige dieser Operatoren werden 

sehr häufig gebraucht . Es sind’ dies das logische UND, das logi 
sehe ODER und das logische exklusive Oder (XOR) . Di esc Operatoren 
vergleichen stets zwei Bitwerte miteinander iiefeplf'. iAbhän 

gigkeit davor» einen neuen Bitwert. Das logische UND (engl. AND) 

vergleicht zwei Bits; sind sie beide auf 1 gesetzt, dann liefert 

auch UND den Wert 1..' ,' 4 ‘st nur eines der beiden Bits (oder auch 

beide) auf Null gesetzt, so hat auch die UND-Operation den Wert 
0. Auch das logische ODER vergleicht zwei Bits. Wenn; eines 
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der beiden (oder auch beide) Bits auf 1 gesetzt ist, dann hat 
ÖDER den Wert 1 . Die Operation des logischen ODER liefert also 
nur dann den Wert Null, wenn beide Vergie : chsb : cs den Wert Nult 
haben. Die dritte logische Operation, die häufig anzutreffen ist, 
das exklusive Oder (Fachausdruck: XOR) verhält sich ähnlich wi® 

die ODER-Operation . Wenn eines der beiden Vergleichsbits den Wert 
1 hat, dann wird auch XOR den Wert 1 liefern. Zusätzlich hat XOR 
aber auch itotfe den Wert 0, wenn bei de Verglei dhsbits den Wert 1 
haben. Anders ausgedrückt kä-th .man sagen, daß XOR dann den 

Wert 1 liefert, wenn die beiden Vergleichsbits verschiedene Werte 
haben; sind sie beide gleich 0 oder gleich 1, dann ergibt XOR 
auch den Wert 0. Die FORTH-Wörter zur Ausführung dieser logischen 
Operationen sind kein Teil des Standard-FORTH . Sie finden sich 
jedoch im MMSFORTH und in anderen FORTH-Systemen . 

AND - Das FORTH-Wort AND entfernt die beiden obersten einfach 
genauen Integers v,csÄ? .Stack und vergleicht sie bitweise unter Ver 
wendung der oben beschriebenen UND-Operation. Dabei wird das 
erste: •■$$£,, der ersten Zahl jnit dem ersten Bit der zwei'töh Zahl 
über logisches UND verglichen. Sind beide Bits gleich 1, dann 
wird auch das erste Bit in der Ergebniszahl den Wert 1 haben; ist 
nur eines der Vergleichsbits .0.., dann hat auch das erste Bit in 
der Ergebniszahl den Wert 0 . Als nächstes wird das zweite Bit deif 
ersten Zahl,' 4tiit dem zweiten Bit der zweiten Zahl verglichen und 
der Prozeß wiederholt.^ Jedes der 16 Bits einer einfach genauen 
Integer wird somit individuefel» . dem Vergleich mit der logischen;' 
UND-Operation unterworfen, .Dieser Prozeß hat elfte neue 16-Bit- 
Zahl zum Ergebnis, welche von AND auf den Stack gelegt Des 

wegen lautet die Stack-Relation: 


(5-31) 


Wir wollen ein Beispiel für den Einsatz von AND geben. Um der 
Klarheit willen schreiben wir die Zahlen in jätnärdarstellung . Da 
die meisten FORTH-Systeme .di e Zahlenbäsis wechseln können, ist 
dies durchaus zulässig: Der Programmierer braucht nur zu verein 

baren, daß er jetzt in der Binärdarstellung zu arbeiten wünscht 
(vergleichen Sie dazu Abschr. i.tt 2-7) . Unter der Voraussetzung, 
daß wir im Binärsystem (Basis 2) arbeiten, wollen wie jetzt das 
folgende FORTH-Wort definieren. 
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: ANDTEST AND . 


(5-32) 


•Jeuzt' .tiipper. wir: 

10011001 OillOOOl ANDTEST (RETURN) 
als Ergebnis erhalten wir: 

00010001 

■Lediglich die erste und fünfte Bit-Position (von rechts gezählt) 
ist in beiden Vergleichszahlen auf 1 gesetzt. Deshalb erhalten 
wir als Ergebnis des FORTH-Wortes AND eine Zahl, bei der nur die 
erste und die: .fSiifte Bit-Pos.i iiör. auf 1 gesetzt ist . (Möglicher 
weise gibt Ihr FORTH-System führende Nullen bei der Darstellung 
einer- '^isSrzahl ,$jfccht aus . ) Hätten w|fS?. bei der Zahleneingabe im 
Dezimalsystem gearbeitet, dann würde das zum selben Ergebnis ge 
CüjpEfc haben*. außer daß die Zahlen, natürlich ihrer dezimalen 

Schreibweise dargestellt worden wären. 

OR - Das FORTH-Wort OR funktioniert ähnlich wie das bereits 
bekannte AND, außer daß der bitweise Vergleich der beiden Zahlen 
auf dem Stack mit der logischen ODER-Operation erfolgt. Die 
Stack-Relation geht ebenfalls aus (5-31) hervor. Hier ein Bei 
spiel : 


: ORTEST OR . ; (5-33) 


Wenn wir jetzt eingeben: 

10011001 0111Q001 ORTEST (RETURN) 
dann erhalten wir: 

1111101 

XOR - Das FORTH-Kommando XOR fünktionierß -.‘^^-'wesentlichen genauso 
wie OR, außer daß für die Bit-Vergleiche die Operation des exklu 
siven Oder herangezogen wird. 
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5 . 7 Gleitkomnaarithmetik 


Bisheji .kgitßten wir hur ftiit ganzen, fahlen rechnen. Wenn Geldbe 
briäge an, Unseren Berechnungen beteiligt waren, haben wi4- Wä® mit 
Skalierung echot fcn, um aus diesen ganzzahlige Summen zu bilden. 
Bei der Arbeit mit Programmiersprachen gibt es jedoch einen 
grundlegenden Unterschied zwischen Operationen fitjjrf; ganzen Zahlen 
(Integers) Operationen mit Gleitkommazahlen. Ei|iii. Computer 

benötigt zur Darstellung einer Gleitkommazahl in der Regel zwei 
Teile: die Mantisse und den Exponenten . Bei der Ausgabe einer 

Zahl wird der Exponent meist als Zehnerpotenz geschrieben. Diese 
Darstellung von Gleitkommazahlen - die sog. wissenschaftliche 
Notation - schreibt d Le Zahl 56,7 in der Form .567*10 . Dabei ist 

die Zahl .567 di^ -Mantisse, während es bei den Expo 

r.enten der Gleitkommazahl handelt. Wir schreiben also: 


.567 xlO 2 = 56.7 (5-34a) 


Viele Computer zeigen die 1 Oer-Poteüz. des Exponenten durch deii- 
Buchstaben E an, d.h.: 


56,7 .= .567 E 2 (5-34b) 


Betrachten wi r hoch einige weitere Gleitkommazahlen: 

E2-1Ö0 
E 6=10000®$' 

E-2=. 01 
E-4= . 0001 

purüil den Einsatz von Gleitkommazahlen können -sowohl seht: 

große als auch sehr kleine Zahlen darstellen und sind außerdem in 
der Lage., mit Dezimalbrüchen zu arbeiten A gBei kle^.j A ren Computern 
teShkt der Exponent ln der Regel von bis 10 + " . Damit läßt 

sich eine enorme Menge an Zahlen darstellen. Es jßfcfe jedoch einen 
Nachteil bei den Gleit'kpawttäZahlen : Das Arbeiten mit' ihnen - die 

sog, Gleitkommaarithmetik - ist wesentlich Speicherplatz- und 
rechehsseitaufwendiger als die einfachere- Jhteger-Arithmetik. Dies 
kötttfot daher , ' daß der Computer beim Arbeiten mit Gleitkommazahlen 
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sowohl über den Exponenten als auch über die Mantisse Buch führen 
«r.uß. Ein weiterer Nachteil: Integer-Operationen sind - solange 

sich kein Werteüber- oder Unterlauf ergibt - stets exakt. Bei 
Gleitkommaoperationen ergeben sich jedoch bei Jedem Rechenschritt 
Rundungsfehler. Sie sollten also in Ihren FORTH-Prograuunen so oft 
wie möglich Integerarithmetik einsetzen. Manchmal ist es jedoch 
unumgänglich, mit Gleitkommazahlen ■-.spili rechnen, iö FORTH-7 9 ist 
•dieser Zahlentyp gar j3i’öh£ vorgesehen. Im MMSFORTH und anderen 
RORTH-Systemen stehen Gleitkommazahlen jedoch zur Verfügung, 
weswegen wir sie hier darstellen. Für die Arbeit mit Gleitkomma 
zahlen gibt es in FORTH keinen Standard. Deshalb können auch did 
Worte, die ■. . diesem Zahlentyp operieren, auf jedem System an 

ders lauten. Die grundlegenden Ideen für die Verarbeitung von 
•Gleitkommazahlen sind jedoch auf allen Systemen gleich. Deshalb 
werden wir uns im Folgenden auch mehr den elementaren Fragen 
widmen; «l® nicht so sehr auf Details eingehen. 


5.7.1 Gleitkommaarithmetik in FORTH 


Wenn wir eine Gleitkommazahl %ingeben wollen, dann müssen wir 
dies dem Computer irgendwie anzeigen. Dazu stellen wir der Zahl 
#'ih Prozentzeichen, gefolgt yson einem Leerzeichen, voran. Mittels 


% 6 %(f^i(RETURN) (5-35) 


legen wir also 6 und 7 als Gleikommazahlen auf den Stack. Auch 
hier -g.-,..l£^ daß man einer Zahl &&£ dem Stack nicht ansehen kaiife^ 
ob es sich dabei um eine Gleikommazahl handelt, eine einfach 
genaue oder eine doppelt genaue Integer. Gleitkommazahlen benöti 
gen zu ihrer Speicherung ebenso wie doppelt genaue Integers zwei 
Stack-Positionen . 

F#IN - Dieses Wort wendet man an,- jsnst: den Benutzer zur Eingabe 
einer Gleitkommazahl, aufeufbrdern . Es funktioniert genauso wie 
das bereits bekannte #IN, außer daß es eine Gleitkommazahl auf 
dem Stack, jjinterläßt . 
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F. und F.R - Zur Ausgabe einer Gleitkommazahl setzen ;das 

FORTH-Wort F. ein. Dies entfernt die oberste: Gleitkommazahl vom 
Stack und gibt sie auf dem Bildschirm aus. Die Stack-Relation 
'Sjtirtet : 


f -> (5-36) 


Wie Sie sehen, benutzen wir den Buchstaben "f", um Gleitkommazahl 
len (engl. "floating point numbers") auf dem Stack anzuzeigen. 
Denken Sie daran, daß jedes "f" ebenso wie jedes "d" zwei Stack- 
Pof|S|jionen beansprucht . 

Auch Gleitkommazahl^®- jeannen in Daten fe 1 de rn ausgegeben werden 
(vgl. Abschnitt 3-3). Dazu dient das FORTH-Wort F.R. Es hat 
jSÄlgende Stack-Relation: 


Der oberste Stack-p$|ffcrag, eine e S hfach genaue Integer, gibt die 
Feldbreite an. Er wird gefolgt von der Gleitkommazahl, die das 
Wort F.R ausgeben soll. Das Wort entfernt beide Zahlen vom Stack 
und gilSfc die Gleitkommazahl in. einem Feld von der gewünschten 
Breite aus. 


5.7.2 Die Grundrechenarten 


Die FORTH-Wörtef für die Grundrechenarten mit, G 1 e i ckommazahl en 
(Addition, Subtraktion, Multiplikation und Division) lauten F+, 
F— , F* und F/ . Sie entsprechen den bereits bekannten atithme 
tischen Wörtern +, — und /. Alle haben sie die folgende Stack- 
Relation : 


(5-38) 



5 Grundlegendes über Zahl« 


Jede der Operationen entfern^ 1 , -also die beiden Gleitkommazahlen 
vom Stack und ersetzt sie durch eine neue Gleitkommazahl^ i Beach 
tan Sie, daß bei Gleitkommazahlen eine dem MOD-Wort analoge Ope 
ration uanötÄig ist» da «Sie Ergebnisse von Gleitkommaoperatidnen 
sowieso 'ftit Nachkommastellen versehen sind. Wenn wir z.B. folgen 
des eingeben: 

% 50 % 3 F/ (RETURN) 

dann erhalten wir als Ergebnis auf dem Stack eine Zahl, die der 
Gleitkommazahl .166667 E (^‘'-entspricht. 

Auch Gleitkommazahlen können inj PrgigS'ammen mÄ- Integers gemischt 
werden; es .liegt jedoch in der Verantwortung des Programmierers, 
den richtigen Zahlentyp bei der Arbeit an das richtige FORTH-Wort 
zu übergeben. (Es gibt nämlich keine Möglichkeit, einem Stack- 
Eintrag änzusehesijt welchem Datentyp er ; zugehört . ) So können. St.B. 
.Gleitkommaoperationen innerhalb einer Schleife ausgeführt werden. 
In diesem Fall wären die Schleifenparameter ganzzahlig, während 
die Operanden der Operationen Nachkommasteiien aufweisen. 


5.7.3 Stack-Manipulation 


Gleitkommazahlen benötigen ebenso wie doppelt genaue Integers 
zwei Stack-Einträge zur Speicherung. Wenn also Gleit kommazah 

len auf dem Stack manipulieren wollen, dann können wir dazu die 
selben FORTH-Wörter benutzen, die wir für die Manipulation von 
doppelt genauen Integers bereits kennengelernt haben. Es sind 
dies fßUP, 2DROP, 2 SWAP und 2 ROLL . Als Beispiel schreiben wir 
eine neue Version der bereits bekannten Fakultätsfunktion, dies 
ma|' jedoch soll Gleitkommazahlen gerechtet werden. Sie sehet 

das Programm in Abbildung 5-4 . 


0 ( Berechnung der Fakul taot mit Gleitkommazahlen ) 

1 : FFACT 1 + % ' : |4 ROLL SWAP 

2 DO I I— F F* LOOP F. ; 

3 

4 

ABBILDUNG 5-4: Fakultätsberechnung mit Gleitkommazahlen 
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Dieses Programm ist in seinem Aufbau dem von Abbildung 5-1 sehr 
ähnlich . Der eiaSfgLge Unterschied besteht darin, daß jetäfe' mit 
Gleitkommazahlen gerechnet wird. in der Definition von FFACT 
taucht ein neues Wort jfof: I— F. Dieses dient zur U mw a ndi'dftg einer 
ganzen Zahl (Integer) in eine Gleitkommazahl ( "f loating— point 
number) . Es entfernt die oberste Integer auf dem Stack und er 
setzt sie durch eine gleichwertige Gleitkommazahl. Seine Stack- 
Relation: 


■M -> f (5-39) 


Es wird also eine Integer, die eine Stack-Position zur Speiche 
rung benötigt, durch eine Gleitkommazahl mit einem Speicherbedarf 
von zwei Stack-PosiSrJionen ersetzt. Vergleichen wir nun das Pro 
gramm aus Abbildung 5-1 mit dem neuen Programm. In Ze : ie 2 der 
Abbildung 5-1 legen wir die 1 als doppelt genaue Integer auf den 
Stack, indem wir;, der Reihe nach 1 und 0 pushen. Entsprechend 
dient in Zeile 2 der Abbildung 5-4 die Eingabe von % 1 zum Ab 
legen der jA- als Gleitkommazahl auf dem Stack. In Zeile 2 dejj- 
Abbildung 5-1 legen wir mittels I und 0 den Schleif enindex als 
doppelt genaue Integer aiif den Stack. Zeile 3 der Abbildung 5-4 
stellt hingegen den Schleifenindex durch die Wörterfolge I und I- 
F als Gleitkommazahl zur Verfügung., ftjn Zeile 3 der Abbildung 5-1 
drucken wir das doppelt genaue Ergebnis mit dem Wort D, während 
ähnlich in Zeile 3 der Abbilds&g 5-4 das Ausgabewort F. verwendet 
wird. Öle Wörter, die die Stack-Manipulationen besorgen, sind in 
beiden Programmen gleich. Dies kommt daher, weil beide Programme 
mit Zahlen arbeiten, die jeweils zwei Stack-Positionen zur Spei 
cherung benötigen. 


5.7.4 Gleitkommafunktionen 


Neben den Grundrechenarten gibt es hoch eine Reihe weitere®; 
mathematischer Funktionen, die auf Gleitkommazahlen angewendet 
werden können. Wir stellen zuerst einige Funktionen vor, die in 
ihrer Arbeitsweise bereits bekannten ähneln. 

FABS und FMINUS - Das FORTH-Kommando FABS liei^t den Absolutwert 
einer Gleitkommazahl und ist darin dem bereits bekannten Kommando 
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ABS ähnlich. FÄBS entfernt eine Gleitkommazahl vom Stack und er 
setzt sie durch ihren Absolutwert (als Gleitkommazahl) . 

'l*as FORTH-Wort FMINUS dient ähnlifefc wie NEGATE zur Umkehrung des 
Vorzeichens einer Gleitkommazahl. Die beiden Wörter FABS und FMI 
NUS haben die Stack-Relation 


f 1 — > f 2 (S-40 ) 

Sie ersetzen also eine Gleitkommazahl auf dem Stack durch eine 
andere . 

Weiterhin gibt es eine Anzahl von FORTH-Wörtern, die zum Ver 
gleich von Gleitkommazahlen dienen. Das Wort SGN erlaubt es, das 
Vorzeichen einer Gleitkommazahl,, zu bestimmen. Das Wort entfernt 
•die oberste Gleitkommazahl vom Stack und ersetzt sie durch eine 
einfach genaue Integer, die als Flag interpretiert werden kann.; 
Der Wert von SGN ist entweder -1, Q oder 1, je nachdem, ob die 
Ausgangszahl kleiner Null, gleich Null oder größer {p$ll war. SGN 
besitzt folgende Stack-Relation: 


'f-> n (5-41) 


Zum Vergleich zweier Gleitkommazahlen dient das FORTH-Kommando 
FCOMP . Es entfernt zwei Gleitkommazahlen vom Stack und ersetzt 
sie cjftifeh eine eügfigföfe genaue Integer. Biese entweder den, 

'Wert -1 BR oder Wir haben folgende Stack-Relation: 


(b-42) 


Dabei ist Jl- gleich -1, ijallsf ^kleiner f 2 istjp§Ü* es hat den Wert 
0, falls gilt f t = und ist ansonsten - wenn also f* größer als 
"2 - gleich 1. 

Arithmetiaffihe Operationen im gemischten Modus sind' .Zusammen 
hang $§mL Gleitkommazahlen fi'i'cht möglich. Man kann also beispiels 
weise keine Integer mit eitler Gleitkommazahl durch eine spezielle 
gemischte Ärithmetikopefat.ibh multiplizieren .lassen. Es gibt 
gedoch einen Ausweg aus dieser Notlage. Dieser 'besteht darin. 
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Umwandlungsfunktionen anzuwenden, die Zahlen von einem Datentyp 
i'ti; einen änderen umwandeln, also z.B. -aus' jÄftegers Gleitkomma za.h 
len machen und umgekehrt . 

Das Wort I— F haben wir bereits kennengelernt . Es wandelt eine 
Integer /|fcj$E eine Gleitkommazahl um, erwartet also eine eihfaöh 
genaue Integer an oberster Stack-Position, entfernt sie von dort 
und ersetzt sie durch eine numerische gleichwertige Gleitkomma 
zahl. Wir wiederholen noch eißjätsA- die Stack-Relation : 


n ' > ty (5-43) 

In der umgekehrten Richtung arbeitet CINT . Die Gleitkommazahl an 
oberster Stack-Posiiglöh wird entfernt aHdf durch eine ganze Zahl 
ersetzt. Dabei handelt es sich um die größte ganze Zahl*, die 
kleiner oder gleich der Ausgangs-Gleitkommazahl ist* vpa CINT zur 
Umwanj-fl'ung. von Gleitkommazahlen ganze Zahlen diefjt:* hat; es 

folgende Stack-Relation: 


Manchmal kann es nötig seih, eine Gleitkommazahl ganzzahlig gw 
machen, ohne ihren Datentyp zu ändern (d.h., ohne sie in eine 
Integer umzuwandeln) . In diesem Fall stehen zwei FORTH-Wörter zur 
Verfügung. Eines davon ist FIX* i)as Wort entfernt die oberste 
Gleitkommazahl vom Stack und schneidet einfach deren Nachkomma 
stellen ab. Die sich daraus ergebende Gleitkommazahl wird als 
Ergebnis auf den Stack gelegt. 

Auch das FORTH-Wort INT arbeitet.' 'I^gteiner GleitkoltpStzahl,- die es 
durch eine andere Gleitkommazahl ersetzt, welche numerisch gleich 
der größten ganzen Zahl. %st, die kleiner oder gleich der Aus 
gangszahl ist. Bei positiven Zahlen liefern FIX und INT gleiche 
Ergebnisse. Anders sieht die Sache aus, wenn wir mit negativen 
Werten arbeiten. Beachtet) Sie, daß -8 die größte ganze Zahl 
die kleiner oder gleich der Zahl -7,3 ist. 
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Auch “IjSfefA die mehr fortgeschrittenen mathematischen SSmlct x ö neif. 
gibt es FORTH-Wörter, die wir jetzt darstellen wollen: . Die mei 
sten von ihnen ersetzen eine Gleitkommazahl auf dem Stack durch 
eine andere . 

LOG und LOG10 - Diese beiden Kommandos dienen zur Berechnung des 
natürlichen bzw. ds Zehner-Logarithmus einer Zahl. So erhalten 
vi3t-:8.B. durch Eingabe von 

# I0Q LOG10 (RETURN) 

als Ergebnis die Gleitkommazahl 2 auf dem Stack. 

EXP und 10 A - Diese beiden FORTH-Kommandos bilden Potenzen der 
Ea 1 ersehen Zahl E, bzw. 4 tö?.- Basis 10. Durch Eingabe von 

% 2 IO' ' (RETURN) 

erhalten wir so z.B. die Gleitkommazahl 100 auf dem Stack. (An 
merkung: Auf den meisten Mi k rocompute r -"Tastaturen wird der Pfeil 

nach oben auch als Dächlein dargestellt) . 

1/X und SQR - Mit diesen FORTH-Bef ehlen kann man den Kehrwert 
bzw. die Quadraf|$Sfezel einer Gleitkommazahl berechnen. Beide Wör 
ter entfernen eine Gleitkommazahl vom Stack und ersetzen sie 
durch ihren Kehrwert (1/X) bzw. durch ihre Quadratwurzel (SQR) . 

SIN, COS, TAN :;nd ATAN - Diese FORTH-Kommandos bo rechnen die trigo 
mometrischen Funktionen -SSit^Lus, Cosinus, Tangens und Arcustangens. 
Das Argument dieser Funktionen (die oberste Gleitkommazahl auf 
•dem Stack) kann entweder in Winkelgraden oder iffi Bogenmaß angege- 
oen werden. Dazu gibt es zwei sehr nützliche FORTH-Wörter, näm 
lieh RADIANS und DEGREES . Diese beiden Wörter lassen den Stack 
unverändert . Wenn Sie das Kommando DEGREES geben, dann werden die 
Eingaben zu und die Ausgaben von ajl^n trigonometrischen Funktio 
nen als Winkelgrade interpretiert. Nach Ausführung von RADIANS 
werde# die entsprechenden Angaben Jgfa. 'Bogenmaß eingelesen bzw. 
ausgegeben . 

RND - Dieses Wort entfernt die oberste Gleitkommazahl vom Stack 
und legt statt dessen dort eine. Pseudozufallszahl ab. Die jflf; 
fallszahl ist kleiner oder gleich der Ausgangszahl, vorausge 
setzt, die Ausgangszahl war gleich oder größer 1. Die Zufallszahl 
hat zwar einen ganzzahligen Wert, wiiäj. jedoch als Gleitkommazahl 
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5 . 8 Doppelte Genauigkeit und komplexe Zahlen 


Dieser Abschnitt behandelt Zahlen, deren Speicherung vier Stack- 
positionen benötigt. Das sind einmal doppelt genaue Gleitkomma 
zahlen. Die Gleitkommazahlen des letzten Abschnittes sind in der 
Hegel auf sechs Stellen genau. Dabei ist die Genauigkeit der Zahl 
nicht von ihrer absoluten Größe abhängig. So haben z.B. 

1 ,23456 

123, 456 

0,123456 E15 

allesamt sechs signifikante Ziffern, sie unterscheiden sich aber 
«gewaltig w jfhrem Betrag. Beim Rechnen mit Gleitkommazahlen erge 
ben sich, .in der Regel kleine Fehler, sog. B .yi Tlr i' l ogaf ehler . luftige 
Programme führen nun ei ne große Menge von arithmetischen Operati 
onen mit Gleitkommazahlen aus, so daß sich diese Rundungsfehler 
r.äufen; der aittzelrie Rundu.nqs fehler mag ohne Bedeutung sein, der 
«Gesamtef fekt kann sich jedoch durchaus auf die Genauigkeit des 
Ergebnisses bedeutend auswirken.. IJm tniit mehr als .sechs Stellen 
«Genauigkeit rechnel; zu können, stellen einige Systeme doppelt 
genaue Gleitkommazahlen zur Verfügung. In der Darstellung unter 
scheiden sich solche Zahlen dadurch, daß der Exponent von der 
Mantisse durch den Buchstaben D (und nicht, wie bei einfach ge 
nauen Zahlen durch E) abgetrennt wird. Bei der Speicherung benö 
tigen doppelt genaue Gleitkommazahlen ||er Stack-Wörter, also 
genau doppelt soviel wie die e : r.ligeh genauen Gleitkommazahlen. 
Deshalb sind Berechnungen mit diesem Zahlentyp auch wesentlich 
langsamer und verbrauchen mehr Speicherplatz-. Sie sollten sich 
•deshalb genau überlegen, ob Sie in Ihrem Programm mit doppelt 
genauen Zahlen arbeiten wollen. Auch ist dieser 3 a rer. typ kein 
Bestandteil, von FORTH-79, findet sich jedoch in MMSFORTH. 

feft-.E i.ngeben einer doppelt genauen Gleitkommazahl müssen wjpjf den 
Interpreter asi©. den Datentyp der Zahl hinweisen; dies tun wir, 
indem wir der Zahl die Zeichenfolge D\ voranstellen. Erinnern Sie 
sich daran, daß zur Eingabe von eiii.Sach genauen Gleitkommazahlen« 
das Prozentzeichen dient (vgl. Abschnitt 5-6) . Im allgemeinen 
werden FORfjjj^Wörter zur Manipulation von doppelt genauen Gleit 
fcommazahlen gebildet, indem man den Buchstaben D den FORTH-Wör- 
tern voranstellt, die Berechnungen mit einfach genauen Gleitkom 
mazahlen anstellen. SOI -ist: z.B. DF# IN .analog zu F#IN. Die Stack- 
Relatiiäh für DF#IN lautet: 
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-> d (5-46) 

Wie Sie sehen können, stellen wir 4sfe' Stack-Relationen eine dop 
pelt genaue Gleitkommazahl durch "d A " dar. 


5.8.1 Stack-Manipulationen 


Doppelt; genaue Gleitkommazahlen. bcrröti gor. bekanntermaßen vier 
Stack-Positionen. Deshalb braucht man spezielle FORTH-Wörtern, um 
mit diesen Zahlen Stack-Manipulationen ausführen zu können» Die 
Kommandos lauten 4DUP, 4DROP, 4SWAP 4ROLL. Sie entsprechen' 

den bekannten Kommandos für einfach genaue Gleitkommazahlen, 
außer daß die 2 durch eine 4 ersetzt wird. Beispielsweise dupli 
ziert das Kommando 4DUP die oberste doppelt genaue Gleitkommazahl 
auf dem Stack und hat deshalb folgende Stack-Relation: 


d f — > d f d f (5-47) 

Es wird also eine Gruppe von vier zusammenhängenden Stack-Wörtern 
dupliziert . 

Das FORTH-Kommando 4 DROP entfernt die oberste doppelt genaue 
Gleitkommazahl vom Stack. Das bedeutet, daß alle ijjg^erhalb lie 
genden pffsilträge um 4 Positionen nach oben wandern. J|Ifer die 
Stack-Relation : 


d f — > 45-48) 

Das FORTH-Kommando 4 SWAP vertauscht die beiden obersten doppelt 
genauen Gleitkommazahlen und hat deshalb folgende Stack-Relation: 
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Das FORTH-Kommando 4 OVER dupliziert die zweite doppelt genaue 
Gleitkommazahl auf dem Stack an die erste Position. Dies bedeu 
tet, daß die fünfte bis achte Stack-Zeile noch einmal von Anfang 
an wiederholt werden. Die Stack-Relation ist 


d fl ? 2 -V-fl «f2 «I,: <5 - 501 

DF. ütept DF.R - Diese beiden Kommandos entsprechen den Worten F. 
und F.R. Das Wort DF. dient also zur Ausgabe einer doppelt ge 
nauen Gleitkommazahl, wobei diese auch noch vom Stack entfernt 
wird. Um eine solche Zahl in einem Datenfeld mit vorgegebener 
Breite auszugeben, benutzt man das Kommando DF.R, das eind ein 
fach genaue Integer und eine doppelt genaue Gleitkommazahl vom 
Stack entfernt . Die Integer dient in gewohnter Weise zur Angabe 
der Feldbreite. DF.R erwartet, daß die Integer? .an erster die 

auszugebende Gleitkommazahl an zweiter Stack-Pos i t i.on zu finden, 
ist . 


6 ( Fakultaetsberechnung mit doppelt genauen Gleitkommazahlen ) 

1 : DFFACT 1 + D% J#ä* 1 6 ROLL SWAP 

2 DO I-F FDF DF* LOOP DF. f 

3 

•# ! 

5 

6 


9 

1 0 
11 
1 2 

1 '3 

14 

15 


ABBILDUNG 5-5: Ein FORTH-Wort zur Berechnung der Fakultät 
"ÄS? doppelt genauen Gleitkommazahlen 
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5.8.2 Die Grundrechenarten 


Die FORTH-Wörter für die Addition, Subtraktion, Multiplikation 
und mit doppelt genauen Gleitkommazahlen lauten DF+, DF- 

, DF und DF/. Sie entsprechen den bereits bekannten Kommandos 
F+, F— , F* und F/, außer daß die Operanden jeweils vier Stack- 
Positionen anstelle von zwei beanspruchen. Alle haben sie die 
Yilfitlgende Stack-Relation gemeinsam: 




d .g 


(5-5 l)j 


5.8.3 Typumwandlung 


Auch für die Umwandlung zwfäighen einfach genauen und doppelt ge 
nauen Gleitkommazahlen gibt es spezielle Kommandos in FORTH. .?u>r,' 
UmwandlüitjJ,' einer einfach genauen Gleitkommazahl auf dem Stack itt 
e i ne. doppelt genaue dient das Kommando FDF . Seine Stack-Relation 
sieht folgendermaßen aus: 


f -> d (5-52) 

Den umgekehrten Weg kann man mit DFF gehen. Dieses Wort entfernt 
eine doppei|§. genaue Gleitkommazahl vom Stack und legt aÄ ihre#] 
Stelle eine e : nfäch genaue Gleitkommazahl dort ab. Das Ergebnis 
wird abgerundet, da es weniger sig&lfikante Stellen .aö'fwei sen 
kann. Die Stack-Relation ist 


d f — > f \(a-53) 

Das, was wir über doppelt genaue Gleitkommazahlen kennengelernt 
haben, wollen wir noch einmal verdeutlichen, indem wir das Bei 
Spielprogramm 5-4 neu schreiben (vgl. Abbildung 5-5). Wir gehen 
hier nur auf die Unterschiede zwischen diesen beiden- ift.pgrammen 
ein. In Zeile 2 benutzen wir anstelle von % das FORTH-Kommando 
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D% . Auf diese Art wird die 1 als doppelt genaue Gleitkommazahl 
jftif den Stack gelegt. Ebenso findet -Jf,n Zeile 2 anstelle von 

4 ROLL die Befehlsfolge 6 ROLL. Dies kommt daher, weil eine dop 
pelt genaue Gleitkommazahl zwei Stack-Positionen mehr isäjj Spei 
cherplatz benötigt, als eine einfach genaue Gleitkommazahl. In 
Zeile 2 wollen wir wieder den Schleifenindex in das passende 
Datenformat umwandeln. Dazu bedienen wir uns zuerst des Kommandos 
I-F . Dadurch erhalten wir eine einfach genaue Gleitkommazahl, die 
wir jetzt mittels FDF in eine doppelt genaue umwandeln. Das rest 
liehe Programm entspricht weitestgehend dem in der Abbildung 5-4, 
außer daß zur Multiplikation und Ausgabe des Ergebnisses die 
Wörter DF* und DF. benutzt werden. 

Eine Handvo J 1 Funktionen für doppelt genaue Gleitkommazahlen ent 
spricht den bereits bekannten Funktionen für einfach genaue Zah 
len dieses Typs. Sie lauten DFABS, DFMINUS , DFSIGN und DFCOMP . 
Sie entsprechen jeweils den Funktionen FABS, FMINUS, FSIGN und 
FCOMP . Im übrigen steht eine wesentlich größere Anzahl mathemati 
scher Funktionen für einfach genaue als für doppelt genaue Gleit 
kommazahlen zur Verfügung. 


5.8.4 Komplexe Zahlen 


Komplexe Zahlen setzen sich aus einem Rea Ltei.1 und einem Imagi 
närteil zusammen. MMSFORTH sieht Kommandos vor, mit denen auch 
dieser Kahlentyp maniWaliert werden Mjggp^fj. Jede komplexe Zahl 
besteht aus einem Paar einfach genauer Gleitkommazahlen. Deshalb 
belegen auöii komplexe Zahlen » :Stack-Posii$5äitonen, weswegen man zur 
Stack-Manipulation bei diesem Datentyp die Kommandos 4DUP, 4DROP , 
4 SWAP und 4 OVER heranziehen kann. 

Man Signal, Stiert dem FÖRTH— Interpreter durch die Zeichenfolge 
CP\, daß eine komplexe Zahl, aingegeben werden soll. Umgekehrt 
sorgt das FORTH-Wort CP. dafür, daß eine komplexe Zahl vom Stack 
entfa^hlS und ausgegeben wird. Dabei wird davon ausqeganqoj,-. daß 
der Imaginärteil der Zahl zuoberst auf dem Stack liegt, gefolgt 
vom Real teil i 

Zum Beispiel erreicht man durch Eingeben von 
t&Bte CP. (RETURN) 
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daß folgendes ausgegeben wird: 

(5 /f| 

Für die Arithmetik mit komplexen Zahlen stehen die Wörter CP+, 
CP-, CP* find CP/ zur Verfügung. Alle vier entfernen zwei ■. fepnplexe 
Zahlen vom Stack und ersetzen diese durch das Ergebnis (die Sum 
me, Differenz, das Produkt oder den Quotienten) . th re Stack-Rela 
tion lautet daher: 


c CiÄ -> c (5-54) 

PI P2 perg 

Wie Sie sehen können, stellen wir komplexe Zahlen den Stack- 

Relatisghen mittels "e " dar. Denken Sie dar.äh'> daß aftch diese#) 
Datentyp vier Stack-pBsitionen benötigt. 

Die Wörter MAG und PHASE entfernen;' «ine komplexe Zahl vom Stack 
und ersetzen sie durch eine einfach genaue Gleitkommazahl, die 
entweder gleich dem Betrag oder der Phase (dem Winkel) der kom 
plexen Zahl ist. Bei der Darstellung der Phase kann man zwischen 
Winkelgraden und Bogengraden wählen, ISies erreichen Sie, indem 
Sie aä|i£ die bereits bekannten Wörter DEGREES oder RADIANS zurück 
greifen (vgl. Abschnitt 5-6). 

Die Wörter R-P Mild P-R dienen tjajggü komplexe Zahlen Von einem 
Darstellungsf orinat ins andere umzuwandeln. Bei Ausführung von R-P 
sollte die komplexe Zahl, die an oberster Stack-Position steht, 
cartesischen KoQrdfe$&ift gegeben sein, wobei sich; der Imagi 
närteil an oberster Stack-Position befindet. R-P ersetzt diese 
Zahl durch ihre Darstellung in Polarkoordinaten (d.h., Betrag und 
Winkel) . Dabei wird der Winkel an oberste Stack-Position gelegt. 
Der Realteil und Imaginärteil bei der cartesischen Darstellung 
bzw. der Betrag und der Winkel bei der Polardarstellung sind 
jeweils einfach " genaue Gleitkommazahlen, Sie sollten hier mit 
Vorsicht vorgehen. Es gibt ja keine Möglichkeit!^-, nur durch Inspi 
zieren des Stacks festzustellen, welche Art von Zahlen auf ihm 
gespeichert So kann, man z.B. eine einzelne komplexe Zahl 

feicht von vier einjfjatäh genaue»/« Jntegers unterscheiden. Die Sjftthe 
matischen 0perat3|S§jen CP+, CP-, CP* und CP/ nehmen allesamt äh, 
daß ihre Argumente, die komplexen Zahlen, in cartesischer Form 
gegeben sind (also in der Form Realteil, Imaginärteil) . Deshalb 
sollte man die Umwandlungsfunktionen P-R und R-P nur bei der Ein- 
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Ausgabe von Daten anwenden, um hier zwischen diesen beiden Dar 
steäiungsmöglichkeiten wählen zu können. 

Noch zwei weitere FORTH-Wörter sind im Zusammenhang mit komplexen 
'.Zahlen verfügbar: CPMINUS disä CONJ. Diese ersetzen jeweils eine 

Komplexe Zahl an oberster Stack-Position durch ihren negativen 
'Wert (CPMINUS) bzw. du rch- ihre komplex kofl juq : o rto Zahl (CONJ) . 


5 . 9 Übungsaufgaben 


ffn vielen der folgenden Übungsaufgaben werden Sie gebeten, FORTH- 
Wörter oder Programme zu sdliteiben. Überprüfen Sie Ihre Ergebnis 
se aufS' -{ihrem eigenen Computer. Ächten. Sie daz^öjy-. 'die Defi|8fti8;A4j)- 
nen möglichst kurz zu halten, indem Sie eine komplizierte Aufgabe 
«_n mehrere Unterwörter "auf brechen" (Modu 1 6.r-is : crur.g) . 


5-1 Erörtern Sie den Unterschied zwischen einfach genauen und 
doppelt genaue*, Jhtegers . 

5-2 Wiederholen Sie Aufgabe 4-8 mit doppelt genauen Integers. 

5-3 Wiederholen Sie Aufgabe 4-9 mit doppelt genauen Integers. 

5-4 Wiederholen Sie Aufgabe 5-3, lassen Sie' das Programm jetzt 

aber abbrechen, wenn die Summe größer 200 000 wird. 

5-5 Wiederholen Sie Aufgabe 4—1$. (gjsfct doppelt genauen Integers; 

lassen Sie das Programm mjifc einer Fehlermeldung abbrechen, 

wenn das Produkt eine Million übersteigt. 

5-5 Wiederholen Sie Aufgabe 4-11 BtJ'lj doppelt genaues Jntegers, 

und geben Sie das Ergebnis diäj: einem Zeichen breiten 

Datenfeld aus. 

5-7 Schreiben Sie ein FORTH-Wort, das die FunKt/ion 
ab/ (c+d) 

mögliehet genau berechnet. Die Variablenwerte a, b, c und d 
sollen auf dem Stack sdi Verfügung gestellt werden. 
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5-8 Wiederholen Sie Aufgabe b-'f *|®L't doppelte .genauen,' ifihtegers . 

5-9 Schreiben Sie ein FORTH-Wort, das unter Verwendung von dop 
pelt genauen Integers den Punktedurchschnitt eines Studenten 
föSÄ Prüfungen bo r echnet . Der Durchschnittswert so 11 .mit 
dreistelliger Genauigkeit hinter dem Dezimalpunkt ausgegeben 
werden. Vergessen Sie ni.ö’föj das Dezimalkomma drucken! 

5-10 Schreiben Sie ein FORTH-Wort. zur Berechnung der Verkäufer- 
Provision nach folgender Vorschrift: Bei Umsätzen bis 10 000 

DM beträgt die Provision 10%, bei Umsätzen zwischen 10 000 

und 50 000 DM beträgt die Provision 15%. Übersteigen die 

Umsätze 50 000 DM, so erhält der Verkäufer 18% Provision. 
Das FORTH-Wort soll die Summe der einzelnen Verkäufe berech 
nen und darauf basierend den Provisionsbetrag. Das Ergebnis 
soll als Geldbetrag ausgegeben werden, d.h., die Zeichenfol 
ge DM und ein Dez ima 1 korir.a müssen Sfü passender Stelle er 
scheinen. Außerdem sollte'#?! Sie Täusenderstellen im Betrag 
durch ein Leerzeichen von den restlichen Ziffern abteilen. 
Sie können davon ausgehen, daß der Provi sdpn sbet rag des Ver 
käujysirs. 100 000 DM nicht übersteigt. Arbeiten Sie mit dop 
pelt genauen Integers. Versuchen Sie, Ihr Programm zu modu- 
larisieren, d.h., die Lösung in mehrere FORTH-Wörtet; auf zu 

5-11, Schreiben Sie ein P rogranur, zur Berechnung der pythagore 
ischen Zahlentripel mit doppelt genauen Integers. 

5-12 Schreiben Sie ein FORTH-Wort zur Berechnung des folgenden 
Ausdrucks : 

ab/ (c+d) + e 

wobei a, b, c, d und e Integers sind. Die Zwischenergebnisse 
Ihrer Berechnungen sollten in doppelter Genauigkeit abgelegt 
werden . 

b-lS Erörtern Sie die Vorteile von Rechenoperationen im gemisch 

ten Modus . 

5-14 Was bedeutet der Ausdruck "vorzeichenlose Integer"? 

5-lS Kärih: auch eine vorzeichenlose $hteger von doppelter Genauig 
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5-16 Schreiben Sie ein FORTH-Wort zur Berechnung der pythagore 

ischen, Zahlentripel mit votzeichenlosejl; eift#.äch genauen;' 
Integers . 

5-17 Wiederholen Sie Aufgabe 5-16, arbeiten Sie diesmal jedoch- 
mit doppelt genauen -Integers . Überlegen Sie siafe genau, wie 
Sie die Daten ausgeben. 

5-18 Erörtern Sie die Funktionsweise der FORTH-Kommandos AND,OR 
und XOR. Schreiben Sie eigene Programme mit diesen Worten. 

5-19 Legen Sie den Unterschied zwischen Gleitkommazahlen und 
ganzen Zahlen dar. 

5-20 Wiederholen Sie Aufgabe 5-10 mit Gleitkommazahlen anstelle 
von Integers. 

5-21 Wiederholen Sie Aufgabe 5-11 mit Gleitkommazahlen. 

5-22 Wiederholen Sie Aufgabe 5-20 mit doppelt genauen Gleitkomma 
zahlen . 

5-23 Wiederholen Sie Aufgabe 5-21 mit doppelt genauen Gleitkomma 
zahlen . 

5-24 Sehre i bcr. Sie ein FORTH-Wort zur Berechnung des folgenden 
Ausdrucks 

(a+b)c/d 

wobei a, b, c und d komplexe Zahlen sind. 
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Zt allen Beispielprogranimen dieses Buches wurden Daten auf den 
Pzack übergeben. Dies ist guter FORTH-Programmierstil, da es 
5 ~ — sicherplatz spart und dafür sorgt, daß Programme schneller lau- 
rar.. Manche Aufgabenstellungen erfordern jedoch eine andere Spei- 
zr . erungsmethode, die für den Programmierer bequemer ist. Stellen 
Sie sich riä>te einmal vor, Sie wollen eine Konstante .faß. einem Pro- 
rrwn mehrfach verwenden. Vor allem dann, wenn diese Konstante 
• -sie Stellen aufweist^lÄfÄ es äußerst mühselig, s.ife jedesmal 
si-rzugeben, wenn Sie sie brauchen. FORTH gibt Ihnen die Möglich- 
v -eit, solchen Konstanten symbolische Namen zuzuweisen und sie im 
_£jf-(»eitsSpeiC;her des Rechners abzulegen. Nachdem ein Name für die 
lor.stante vereinbart is%# '^kann man einfach den Namen anstelle des 
* : rstantenwerts in den Programmen eingeben. Andere Anwendungen 
srfordef®- den Einsatz von sog. Variablen , also Stößen, deren 
»erte im Programm erst berechnet werden. Natäipslich fcä&fi- iftSfch 
sziehe Variable auch aut dem Stack speichern. Verwendet ein Pro- 
gramm aber sehr viele Variable, dann ist es für den Programmiere^-; 
iah.r umständlich, über jede dieser Variablen auf dem Stack Buch 
z’i führen. FORTH stellt auch hier Lösungsverfahren bereit, mit 
zer.en Variable benannt und im Arbeitsspeicher des Computers ge- 
szeich.ejff? .jwerderi; TtöbBtsil. Mit einem einfachen Verfahren, kann der 
Programmierer die Variablenwerte in seinem Programm erreichen, 
-.-.dem er auf sie über den Variablennamen zugreift. Auch ist es 
zehr einfach, den Wert einer Variablen zu ändern. Wir können, also 
s-ir.en Variablenwert be rechnen, im Speicher ablegen, diese Varia- 
zle in Berechnungen einsetzen, anschließend den Wert der Varia 
rian verändern und den ganzen Prozeß wiederholen,. Diesem Verfall 
ren gilt unsere Aufmerksamkeit im vorliegenden Kap Ltel . 

Uffe arbeiten Programme mit ganzen Gruppen solcher Variablenwerte, 
lies kann z.B. nötig sein, wenn wir für alle Teilnehmer eines 
Kurses die Punktzahl in Prüfungen ausrechnen. Zwar ist es mög- 
-ich, für jeden Teilnehmer das Programm getrennt laufen zu las 
sen; gerade dann, Wcf®’. £i.h der Klasse viele Schüler sind, ist das 
'.'erfahren aber viel zu umständlich. Wir werden Ihnen in diesem 
Kapitel zeigen, wie solche Variablengruppen zu sog. Arrays zusam- 
rer.gefaßt werden können und wie man auf eine aihfaehe und elegan 
te Weise mit diesen in Programmen arbeitet. Doch zunächst stellen 
vir Ihnen die Konstanten vor. 
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6 . 1 Konstanten 


Wir werden jetzt e.i;& Verfahren diskutieren, ÄfSs -dem Konstanten im 
Arbeitsspeicher des Computers unter einem beliebigen, frei wähl 
baren Namen gespeichert werden können. Sie können dann diese 
Konstante auf den Stack bekommen, indem Sie einfach ihren Namen 
eingeben. Konstanten sind Werte, -.fitie sich während der Ausfßltätü.ng 
des Programms h.i cht ändern. Es gibt zwar Möglichkeiten z.tir Ände 
rung eines Konstantenwerts während des P r o g r a mm 1- au f s ; jßare Hand 
habung Hsefe jedoch' umständlich, und; raten 'von ihxcft Gebrauch' 

ab. Wenn Sie in Ihren Berechnungen sich verändernde Werte unter 
bestimmten Namen abspeichern wollen, dann sollten Sie dies über 
Variable; *$[un. Will man den Wert einer Konstanten cjgfe. einem Pro 
gramm ändern, so kann man tia es dgreh Edieren des Programms er 
reichen. Darüber später mehr in diesem Kapitel. 

CONSTANT - Zum Definieren einer Konstante dient das FORTH-Wort 
CONSTANT . Wir benutzen es in folgender Form: 


3600 CONSTANT H/S (RETURN) (6-1) 


'"D&feljjh. haben wir der Konstante mit dem Namen H/S den Wert 3600 
zugewiesen. Wir können jetzt überall dort, wo wir den Wert 3600 
benötigen, auch den Namen H/S einsetzen. Bei Ausführung des 
FORTH-Befehls CONSTANT wird die e i!ii fach genaue Integer an ober 
ster Stack-Position - in unserem Beispiel 3600 - vom Stack ent 
fernt und im Wörterbuch des Systems gespeichert, welches sich im 
Arbeitsspeicher des Computers befindet. Als Name für die Konstan 
te Wird der Ausdruck verwendet, der unmittelbar auf den Befehl 
CONSTANT folgt. Die Stack-Relation lautet: 


(6-2) 


Als Beispiel sehen Sie in Abbildung 6-1 ein FORTH-Wort zur Um 
Wandlung von. Stunden 'iMi Sekunden. Zeile 1 definiert, die Konstante 
H/S so, wie Sie es aus Beispiel 6-1 kennen. In Zeile 2 wird ein 
neues FORTH-Wort vereinbart, das den Namen STD/SEC trägt. Dieses 
Wort soll nichts anderes machen, als die Intege^f Jan oberster 
Stack-Position, Mpät, 3600 multiplizieren. Wir wollen also de® 
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•%fer: 3600 auf den Stack legen; dies könnten wir natSriigh errei- 
:‘.?n, indem wir ihn hinschreibeh* Statt dessen benutzen wir je- 
doch die Konstante H/S. Dieses Beispiel ist zwar sehr einfach, 
_L-ii Jedoch die grundlegenden Prinzipien beim Einsatz von Kon- 
; «»arten erkennen. Eine Konstante wird night als Teil; einer Wort — 
Ijefmdti-QH vereinbart. Sie müssen sie defitBtieren, ehe Sie sie in 
e . r . em Programm einsetzen können. 


0 ( Beispiel fyer den Einsatz von Konstanten ) 

1 3600 CONSTANT H/S 

2 : STD/SEC H/S * . ; 

3 

4 

ABBILDUNG 6—1 : Ein Beispiel für den Einsatz von Konstanten 


?Mr den SSiUs-ätZ. von Konstanten gibt es mehrere Gründe. SiöBfir ist, 
ieß Konstanten leichter (kürzer) zu schreiben sind als Zahlen. 
Iir. weiterer Grund besteht darin, daß man sich den Namen einer 
kor.suanto 1 eichte r merken kann als die Zahl selbst. (Denken Sie 
0.5. ais die Kreiszahl "pi' 1 * mit ihrem Wert von . . . ) Ein wei 

Lerer Grund besteht darin, daß man eine Konstante leicht ändern: 
<; ann, ehe man das Programm laufen läßt. Nehmen Sie z.B. einmal 
er.. Sie haben ein Programm geschrieben, das Zinsberechnungen 
ausführt. In diesem Programm kommt der Zinssatz, mit dem gearbei 
tet werden soll, mehrfach vor. Wenn. Sie jetzt den :JtäLfisbetrag als 
Eahl in Ihn Programm mitaufgenommert haben und er ändert sieh, 
•dann müssen Sie mühselig, vöft Hand jedes Vorkommnis des Zinsbe 
fcrags abändern. Anders, wenn Sie eine Konstante benutzen. -$|§rt, 
•<?c in der ersten Version der tatsächliche numerische Betrag des 
Zinssatzes stand, steht jetzt nur eine Konstante. Ändert sich der 
Zinssatz, dann brauchen Sie vor AusföhhWÖ des j&JEogramms ledig 
lieh die Konstante zu ändern und haben sonst keine Arbeit mehr! 
Nicht; Ziiletzt k. 3 ®Ä - gerade iit Hä J len wie dem eben geschilderter! 
- die Verwendung von Konstanten mit dazu beitragen, daß Speicher- 
platz in den Programmen eingespart wird und diese schneller lau 
•fen . 

2CONSTANT - Natürlich kann man auch Konstanten mit doppelt genau 
en int ege rs definieren. Dazu dient das FORTH-Wort 2CONSTANT. 
Dieses verwendet man genauso wie das bereits bekannte CONSTANT, 
außer daß jetzt eine doppelt genaue Zahl definiert wird. 
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65535 . 2C0NSTANT MEMSIZE (RETURN) 


(6-3) 


Jetzt können Sie fft. rltjjren Programmen die Konstante MEMSIZE JjJJ) 
stelle der doppelt genauen Integer 65535 . schreiben. Die Stack- 
Rei-ttiion <|r 2CONSTANT lautet: 


d -> (6-4) 

Denken Sie daran, daß in vielen FORTH-Systemen erst spezielle 
Programmblöcke geladen werden müssen; ehe Sie mit doppelt genauen 
Jtjjtegers arbeiten können. 


6.1.1 Gleitkcanmakonstanten 


Wenn Ihr FORTH-System mit Gleitkommazahlen rechnen kann, dann 
wird es häehstwahrschexnljfiöli .auch über die Möglichkeit verfügen, 

G 1 ei ukommakonstanten. de f in i e ren . Wir stellen , J 3 .io. 3 i die Wörter 

dar, die im MMSFORTH dafür- "Verfügung stehen. Um sie benutzen 

zu können, jiüssen Sie jedoch den Programmteil •'$!$% Gleitkomma 
arithmetik laden. Denken Sie Jföch eifunal daran, daß es keiner!,' 
FORTH-Standard für Gleitkommazahlen gibt, so daß die nötigen Be 
fehle von System zu System unterschiedligfe lauten können. Für das 
MMSFORTH-Sy stem sind hier cfife- Wörter 2CONSTANT und 4CONSTANT maß 
geblich. Sie arbeiten mit einfach bzw. doppelt genauen Giextkcrr. 
mazahlen, welche Sie vom Stack entfernen und im Lexikon unter dem 
angegebenen Namen speichern. •StSese beiden Wörter werden analog 
wie in Beispiel 6-1 bzw. 6-3 eingesetzt.- 'Das Wort zur Definition 
einer einfach genauen! Gleitkommakonstanten ist das gleiche wie 
das für doppelt genaue Integers. Warum dies so. ist, geht aus deh- 
Ausführungen von Abschnitt 2-4 hervor. 
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6 . 2 Variable 


Eine Variable ist ein Wert, der erst zum Zeitpunkt der Programm- 
ausführung berechnet wird. Oftmals kommt es vor, daß dieser Wert 
an verschiedenen Stellen in einem FORTH-Wort benötigt wird, oder 
■daß auch andere FORTH-Wörter diesen Wert benutzen wollen. Es 
mühselig, den Wert aßf den Stack zu speichern und sich stets dar 
über im klaren zu se|$|'. wo er sich gerade befindet . Deshalb er 
laubt es FORTH, solchen Variablen Namen zu geben und sie an ande 
rer Stelle im Arbeitsspeicher abzulegen. In diesem Punkt ähneln 
■die Variablen den im letzten Abschnitt besprochenen Konstanten. 
Es gibt jedoch einen wesentlichen Unterschied: Variable in FORTH 

sind so ausgelegt, daß man ihren Wert mit möglichst wenig Aufwand 
ändern kann. Im Unterschied dazu haben die Entwickler von FORTH 
bei den Konstanten darauf geachtet, daß maß. m^gtißhst schnell SB? 
ihren Wert zugreifen kann. 

VARIABLE - Mit dem FORTH-Wort VARIABLE wird Speicherplatz für 
eine eiäU^Ch genaue Tßtegcsh' |ra Arbeitsspeicher des Computers re 
serviert und für diesen ein Name vereinbart. Es wird diesem 
Speicherplatz jedoch noch kein Wert zugewiesen. Darin unterschei 
det sich VARIABLE von dem FORTH-Befehl CONSTANT, der ja nicht nur 
Speicherplatz reserviert und Ät einem Namen versiefife. f , sondern 
auch einen festen Wert doijf^ß ablegt, welcher S ich., dazu auf dem 
Stack befinden muß. Ein Beispiel für den Befehl VARIABLE: 


VARIABLE KEE (RETURN) (6-5) 


Dadurch wird im Wörterbuch des Computers Speicherplatz für eine 
einfach genaue Integer reserviert. Dieser ^Speicherplatz erhält 
den Namen KEE. Trifft das FORTH-System von jetzt an auf den Namen 
KEE, dann legt es die Adresse dieser Variablen auf den Stack. 

! und0 - Mit dem FORTH-Wort ! speichert man einen Wert an einer 
bestimmten Adresse ab. Meistens hat IftäB diese Adresse mite' dem 

FORTH-Wort VARIABLE zuvor einen Namen vereinbart. Wenn wir z.B. 
wie in (6-5) e i rse Variable KEE vereinbart haben, dann können wir 
diese®:-’' -(Setzt den Wert 234' ßßwöisen, indem wir, folgendes eingeben: 


234 KEE ! 


(6-6) 
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strieren (vgl. Ab. 6-2) . Wir wollen dieses Programm mit dem in 
Abbildung 4-7 vergleiche®* bei dem alle Werte auf dem Stack ge 
speichert waren. 


(Pythagoreische Zahlenißtipal m : L Variablen) 

1 VARIABLE A VARIABLE B VARIABLE C 

2 VARIABLE Al VARIABLE Bl VARIABLE CI 

3 : PT IS , R ; 

4 : SQUARE DUP * ; 

5 : VPYTHTRIP CR 100 1 DO I DUP SQUARE A 

6 IOC DO I DUP SQUARE B ! Bl ! 

7 142 I DO I DUP SQUARE C ! CI 

8 A@B@ - C§ - DUPl|» IF 

9 Al 0 PT Bl £ PT CI § PT CR 

1 fi; THEN 04 'JF LEAVE THEN 

1 1 LOOP 

12 LOOP 

1 3 LOOP ; 

14 


AI ! 


ABBILDUNG 6-2 : Berechnung pythagoreischer Zahlentripel 
mit Variablen 


In den ersten beider!; -Seilen der Abbildung 6-2 vereinbaren wir 

sechs Variable mit den Namen A,B,C,A1,B1 und CI. Nachdem wir uns 

J»iä : Zeile 3 üAd 4 die Wörter PT und SQUARE definiert haben, sind 
alle nötigen Vorberei®ijifcg<sn abgeschlossen. Wenden wir uns jetzt 
dem eigentlich- interessanten Wort, zyj das auf Zeile 5 beginnt und 
den Namen VPYTHTRIP trägt. Das einleitende CR steht hier aus 

ästhetischen ^äfünden, um die Lesbarkeit' - unserer Ergebnisse zu 
steigern. Wieder haben wir es mit drei ineinander geschachtelten 
Schleijfjgn zu $itäi. äußere wird lOOmal durchlaufen, wobei zu 

erst der Schleifenindex auf den Stack gelegt und dup! ; ziert wird. 
Als nächstes |sißfen wir das Wort SQUARE. Jetzt enthält der oberste 
Stack-Eintrag das Quadrat des äußersten Schleifenindex, während 
der zweite Stack-Eintrag den Index selbst enthält. Nach Ausfüh 
rung von A und ! wird der oberste Stack-Eijtf f ag in der Variablen 
A gespeichgaf-ß- Diese enthält njafi also das Quadrat des L-aufindex 
der’ äußerste® S.ßhleife. Ähnlich speichern wir- iäns dsjSiöh die 

Befehlsfolge AI und ! in der Variablen Al den Index der . äußeren 
Schleife. Nach Ausführung von Zeile 5 ist der Stack leer .Öle 
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Zeilen 6 7 wiederholen skit wesentlichen dieselben Schnitte wie 

die Zeile Bi» Das bedeutet, daß nach Ausführung dieser beiden 
Zeilen die Variablen B und Bl das Quadrat sowie den Index der 
mittleren Schleife enthalten. Schl j oß l ich speichern wir in C und 
CI äHbh noch die entsprechenden Größen -für die iäjüferste Schleife. 
In Zeile 8 wird der Wert der Variablen A und B auf den Stack 
gelegt ifh$| anschließend mittels + A addi A rt. Der Stack enthält nun 

an oberster Stelle den Wert von a + b . Diesen vergleichen wir 
mit i'em W A rt v A n 4% indem wir C ausführen. Um herauszufinden, 
ob a* + b z = c gilt, subtrahieren wir den Wert imn G iinitfcels -. 
■jjfiese Different duplizieren wir und -iiijlterwerfen sie dann einem 
Vergleich- ijjpgtels 0=. Fällt der Vergleich posägÄ aus, d.h. , das 
Flag vom Stack ist "wahr", dann besorgen wir uns den Wert der 

Variablen Al, Bl und CI aus dem Arbeitsspeicher un A geb A n ihn aus. 
Ansonsten überprüfen wi%*. lob der Wert von a + b - c kleln-ör 0 
ist. Ist dies der Fall, dann verlassen wir die innerste Schleife. 
Wie Sie seheifl' jbentjtzen wi-Sä' ‘Ityar den gleichen Algorithmus wie in 
Abbildung 4-7. Beachten Sie, daß die Var lab. envcre : nbarung Jceiijfc; 
Teil der Wortdefinition ist. Variable müssen stets definiert wer 
den, ehe man sie in einem Wort einsetzen kann. 

Variable machen dem Programmierer das Leben wesentlich; angeneh 
mer. Wie Sie an dem Beispiel in Abbildung 6-2 sehen können, muß 

man sich bei®' (Programmiere# -(jpg Variablen ■ wesentlich weniger 
Details kümmeteft*. als es bei. bem vergleichbaren Programm Abbil 
düng 4-7 mgfaq: war* ; J)ieser Vorteil muß jedoch mit einem Nachteil 
erkauft werden: Programme mit Variablen benötigen in der Regel 

eine längere Ausführungszeit als solche, die nur mit dem Stack 
arbeiten. Dies kommt; daher. Weil* je um Speidhetjf-i-iund WiederäBjfiÄU- 
den der Variablenwerte zusätzliche Operationen nötig sind. .3: ese. 

wollen wir jetzt darlegen. Wenn Sie eine Variablif definieren, 
dann wird diese das Lexik©# von FORTH #äf genommen. Aller 

dings unterscheidet sich der WörterbucheiSSiiag einer Variablen 
von dem für ein Wort (vgl. Abschnitt 2-4). Der Wörterbucheintrag 
ein Wort enthält ja neben dem Namen auch noch die Instruktiö 
nen, die seine Definition ausmachen; der Wörterbucheintrag für 
eine Variable reserviert lediglich Speicherplatz für diese Varia 
ble . Wenn FORTH ®a£ einen Variablennamen stößt, dann legt es die 
Adresse des Wörterbucheintrags dieser Variablen auf den Stack. 
Der Befehl ! nimmt diese Adresse hsd. die nächste Zahl aufi dem 
Stack und speichert die Zahl an der angegebenen Adresse. Ähnlich 
entfernt § eine Zahl vom Stack und interpretiert diese als die 
Adresse der Variablen, deren Wert auszugeben ist. 
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Variablenadressen werden- i-ftteiHt als vor zeichenlose einfach genaue 
'Integers gespeiöE#äft . Den Befehlen ! oder @ muß deshalb* jjQifSht i§Hp< 
bedingt ein Variablenname vorausgehen. Wenn der Programmierer die 
fragliche Adresse genau kennt, dann kann e# sie direkt als vor 
zeichenlose Integer eingeben. 

All diese eiß^elnen ArbeitsschrltJte verlangsamen das Programm. 
Die Wörterbuchsuche braucht ihre Zeit*, ebenso das Aufsuchen von 

Adressen und Speichern von Zahlen an diesen Adressen. Wenn also 

alle anderen: Umstände gleich sind, dann läuit ein FORTH-Prpgramm 
■ohne Variable schneller als eines, das Variable verwendet. Das 
Programm aus Abbildung 4-7 läuft so z.B. l*-35mal schneller als 

das Programm in Abbildung 6-2. 

PORGET - Dieses bereits aus Kapitel 2-4 bekannte Wort kann für 
Variable genauso verwendet werden wie für normale FORTH-Wörter . 

+ ! - Oftmals kommt es vor, daß wir auf eine Variable einen be 

stimmten Integerwert addieren wollen. Wir könnten dazu die Varia 
ble holen, die beiden Zahlen add i ex'.en und anschließend die Summe 
wieder spc Lehern, es gibt Jedoch ein einziges FORTH-Wort, das all 
diese Schritte ausfühft. Dieses lautet +! und macht folgendes: 
De# Sweite Stack-Eintrag, eine einfach genaue Integer, wird zum 
Wert der V-Rptfftfo'len ‘liJspStuaddiert, deren Adresse sich an oberste# 
Stack-Position befindet. Beide - Variablenadresse und Integer - 
werden vom Stack entfernt. 


6.2.1 Variable und doppelt genaue Integers 


Es ist auch, möglich, doppelt ^genaue Ihtegerwerte $& Variablen ab 
zulegen. In den Einzelheiten funktionieren die dazu dienenden 
Wörter ähnHjgsfk wie die ;£^§r einfach genaue Integers. 

2VARIABLE - Das FORTH-Wort 2VARIABLE ist äJi^Mph wie VARIABLE, 

reserviert aber im Wörterbuch Speicherplatz für eine doppelt 
genaue Integer. Mit 


2VARIABLE KEY 


(6-10) 
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richten Sie also einen Wörterbucheintrag ein, der den Namen KEY 
und eine doppelt genaue |Q|1§eger auf nehmen ’feann . 

2 ! und 2 @ - Dieses sind die FORTH-Kommandos für das Speichern 
(21) fäd. Wiederfinden (20) von Variablen bzw. ihren Werten. Das 
Wort 2 ! {&& die Stack-Relation 


d a -> (6-11) 


Die Stack-Relatiöft 2@ lautet: 


Denken Sie daran, daß in Stack-Relationen "a" zur Darstellung 
vorzeichenloser einfach genauer Integers dient, während mit "d" 
eine doppelt genaue Integer signalisiert wird. 


6.2.2 Variable und Gleitkommazahlen 


Das MMSFORTH-System und ändere FORTH-Systeme erlauben es auch, 
Gleitkommazahlen in Variablen zu speichern. Wir stellen diese 
Möglichkeiten dar, möchten Sie aber noch einmal daran erinnern, 
daß die zugehörigen Wörter nicht standardisiert: sind. Für die 

Arbeit mit ei®f||#il genauen •§|ieitkommazählen verwendet man diesel 
ben FORTH-Kommandos wie bei doppelt genauen Integers, also 2VA- 
RIABLEj 2! und 2 §. 

Einsatz mit Gleitkommazahlen jjöh|;#iben wir die Stack-Rela 
tionen und 2 @ i^jr folgender Form: 


(6-13a) 




(6-13b) 
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Wenn Sie doppelt genaue Gleitkommavariable benötigen, dann brau 
chen Sie nur Kommandos zu geben, die denen für einfach genaue 
Variable entsprechen, außer daß anstelle einer 2 eine 4 steht. 
Wir haben also die Wörter 4VARIABLE, 4! dplä 40. Die Sfack-Rela 
tionen für 4! und 4@ lauten: 


d f a -> (6-1 4a) 

a -> d'' ( 6-14b) 


6 . 3 Arrays 


Viele Programme führen wiederholte Berechnungen mit einer ganzen 
Kiste von Variablen aus. Wir haben gesehen, daß über Programm 
schleifen das Wiederholen von Berechnungen drastisch vereinfacht 
wird. Jetzt werden wir ein weiteres Verfahren kennenlernen, das 
solche Prozeduren vereinfacht, falls Variablenlisten mit ins 
Spiel kommen sc! len. itiS der Sprache der Programmierer nennt man 
diese Variablenlisten auch Arrav^ . 

Aus den letzten Ab s c h.Äi.t L c r. wissen Sie, daß durch die Deklaraiäjpdh 
eines Variablen (durch das Wort VARIABLE oder andere) Speicher 
plStz im Arbeitsspeicher des Computers reserviert wird. Dies wol 
len wir jetzt etwas genauer untersuchen. In einem typischen Heim- 
■cder Personal Computer werden einfach genaue Integers in 16 Bit 
gespeichert. Da man der EDV üblicherweise eine Gruppe von 8 

Bit zu einem Byte ' tüsammenfaßt, kann man sagert| daß z| Spei 
cherung von einfach genauen Integers zwei Byte benötigt werden. 
Pür doppelt genaue Integers braucht man entsprechend vier Byte, 
ubi^dherweise haben die Spe : che rwörber eines Computers (die 
kleinste vosff Computer adressierbare Einheit im Arbeitsspeicher) 
ebenfalls eine Größe von einem Byte, weswegen wir dies auch hier 
»n unseren Ausführungen annehmen wollen. Auch wenif ■ Jh# Computer 
größere Speicherwörter benutzen sollte, dann gelten die grundle 
•genden Darlegungen dieses Kapitels dennoch. Wenn * vSpcir - Variü' 
ble deklarieren (vergleiche (6-5)), dann werden für den aufzuneh 
menden Wert dieser Variablen in Ihrem Wörterbucheintrag zwei 
3ytes reserviert. Wir. .können dort eine einfach genaue 
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Integer speichern. Wenn es uns nun gelänge, für diese Variable 
einen Speicherplatz von 100 Byte zu reservieren, dann könnte man 
50 einfach genaue Integers unter diesem Variablennamen ablegen. 
Wir zeigen Ihnen jetzt, wie man den reservierten Speicherplatz 
für einen Variableneintrag im Wörterbuch vergrößern kann und wie 
man s'ine große Anzahl von Variablenwerten in diesen Speicherplatz 
sch re i bcr. bzw. aus diesem Speicherplatz holen kann. 

ALLOT - Das FORTH-Wort ALLOT holt sich die oberste einfach genaue 
Integer vom Stack und erweitert den Speicherplatz des zuletzt 
cfäfsÖ&lfciftten Wortes um die entsprechende Anzahl <voti Bytes. Die 
Anzahl von Bytes, um die diese Variable erweitert wird, ent 
spricht also der Integer, die ALLOT vom Stack holt. Betrachten 
Sie dazu' bliese KommandOfölge : 


VARIABLE KEE (6-15a) 

4 0 ALLOT ( 6-1 bc) 


Naish Ausführung von 6— 15a enthält der Wörterbuche J^U'fag' iäfc die 
Variable KEE zwei Byte, die zur Aufnahme der Variablenwerte be 
's%ii8Btfc sind. Nach Ausführung von (6— 15b) haben wir jedoch insqe 
samt 42 Byte an Speicherplatz unter dem Variablennamen KEE zur 
Verfügung. Zwei Byte wurden bereits bei Deklaration der Variablen 
(6-15a) zugewiesen, während das FORTH-Wort ALLOT in (6-15b) dafür- 
sorgt, daß 40 weitere Byte hinzukommen. Die Stack-Relation für 
ALLOT lautet einfach: 


(6-16) 


Jetzt wollen wir einmal sehen, wie man einzelne (einfach genaue) 
Integers an dem so zugewiesenen Platz speichert bzw. von dort 
liest . Bekanntermaßen MSr;d. eine einfäch genaue. Integer' in zwei 
Bytes (zwei SpeJgijerwQttern) abgelegt. Wenn wir den Variablenna 
men KEE im FORTH-System eingeben, führt dies dazu, daß die Adres 
se dieser Variablen auf den Stack gelegt wird. Genauer gesagt: 
Die Erwähnung eines Variablennamens legt die Adresse des ersteh» 
der beiden Bytes auf den Stack, die zur Speicherung des Varia 
blenwerts benötigt werden. Wenn die Kommandos ! oder § aufgerufen 
werden, dann "wissen" Sie, daß die' jjine©- bur Verfügiäng gestellte 
Adresse sich auf das erste Byte des Variablenwerts bezieht. Nach 
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Ausfüllung von (6-15b) haben w'jMfp unter dem Variablennamen KEE 
; edoch wesent jfjgäffi Sielir Platz, zä&f Verfügung und können so mehr als 
*üar eine einzige .Integer speichern. Angenommen, wiB; wollen eine 
zweite einfach genaue Integer speichern, liiesmal jedoch im drtjj. 
ten. und vierten Speicherwort von KEE. Dies erreichen wir mit der 
folgenden Wortfolge: 


98 KEE 2 + ! (RETURN) (6-17) 


Damit wird die edöfegh genaue Integer 98 ^-.dritten und vierten: 
3yte der Variable KEE abgelegte^ Dies geht im einzelnen so: Zuerst 

legen w Lr den zu speichernden Wert (98) auf den Stack. Anschlie 
ßend schrei bei: wir den Variablennamen KEE hin, wodurch die Adres 
se des ersten Speicherwortes der Variablen auf den Stack gelegt 
wird. Durch Eingeben von 2 + addieren wir nun 2 auf diese Adres 
se. Damit haben wir die Adresse des dritten Bytes, das zu KEE 
gehört. Deswegen speichert ! den Wert 98 auch an dieser Stelle. 
Um den Variablenwert wieder auszulesen, bedienen wir uns eines 
ähnlichen Verfahrens: 


KEE 2 + § (6-18) 


DpÄit legen wir den Werts $8 auf den Stack. Denken Sie daran, daß 
man sich einen Variablenwert mittels § holen kann, ohne daß 
dieser dadurch verändert wird. Wenn man eine Variable so erwei 
tert, daß sie zur Speicherung einer ganzen Liste von Werten be 
.Äiffzt werden kann, dann bezeichnet man sie auch als Lassen 

Sie uns nun unser erstes Beispielprogramm mit Arrays schreiben. 
Wieder machen w i r- es uns 0 $ fc Aufgabe, den Teilnehmerin a’h einem 
Kurs Noten zuzuweisen, ttpd zwar a,4»f der Basis- ihres Le 
durchsehtli3|ts 4# den einzelnen Tests. Wir gehen davon afts, daß 
die Durchschnittswerte der Kursteilnehmer bereits in einem Array 
dem Namen AVERAGE gespeichert sind. Das erste Element dieses 
Arrays fällt etwas aus der Reihe. Es gibt nämlich die Anzahl der 
Kursteilnehmer an und stellt keinen Durchschnittswert * dar. Alle 
anderen einfach genauen Integers sind jedoch Punktzahlen, die den 
Leistungsdurchschnitt der einzelnen Studenten darstellen. Weiter 
‘*9® gehen davon aus, daß die fiafettiHb eines Durohsetoljit'tS- 

werts im Array » Jjjpjl V der Klassennummer desj Teilnehmers überein 
stimmt. Der Teilnehmer Nummer 1 hat seine Daten also an erster 
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Postition, Teilnehmer Nummer % an zweiter usw. Dies können wir 
machen, da bei der Arbeit Arrays in der Regelt'®!-® dem Index Q 

begonnen wirdy d.h. , der erste DateneiiSisrag - . ArraJ? befindet 

sich an Position 0. Posäctsl'ftft ist in unserem Beispiel aber die 
Anzahl der Teilnehmer, während Position 1 der Durchschnitt des 
ersten Teilnehmers, Position 2 der des zweiten Teilnehmers ist 


0 (Beispiel mit Arrays und ALLOT) 

1 VARIABLE DURCH 200 ALLOT 

2 : BEWERTUNG DURCH § 1 + 

3 DO CR 2;| V DURCH + § 

4 . " STUDENT NO . " I 

5 ELSE ."STUDENT NO. 

6 THEN 

7 LOOP ; 

8 

9 (Beispiel fiter Dateneingabe j|Ä 4 Arrays) 

10 : INPDRCH CR ." Bitte Teilnehmerzahl eingeben " 

11 # IN DUP DURCH ! 1 + 1 CR DO 

12 ." Durchschnitt des Teilnehmers Nr. " ]|W#IN 

13 CR DURCH I 2 * + ! 

J&. LOOP CR ; 

15 

ABBILDUNG 6-3: Ein FORTH-Programm, das mit Arrays arbeitet 


59 - 0> IF 

. " BESTEHT " 

I ." FAELLT DURCH " 


Unser Programm (vgl. Abb. 6—3) gibt die Nummer jedes Teilnehmers 
aus und druckt dahinter BESTEHT oder FäLLT DURCH. Falls der Punk 
tedurchschnitt den Wert 60 übersteigt, dann besteht der Teil 
nehmer. Jetzt zjj den Einzelheiten dieses Programms. Als erstes 
reservieren wir uns in Zeile 1 eine Variable, mit dem Namen DURCH, 
aus der wir anschließend einen Array machet# indem wir 200 ALLOT 
eingeben. Dadurch kommen 200 weitere Byte zum Speicherplatz von 
DURCH: mdßb. Dies bedeutet, daß weitere 100 einfach genaue Inte- 
gers gespeichert werden können. Insgesamt kann der Array DURCH 
also 101 sog. Elemente aufnehmcr. . litt Rest der Abbildung 6—3 wer 
den zwei, neue FORTH-Wörter deßlftiert. Das Woitfe BEWERTUNG be 
rechnet das Abschlußergebnis und gibt es aus. Ehe dieses Wort an 
gewendet werden kann, müssen jedoch die Werte in den Array DURCH 
gebracht werden; dazu dient das Wort INPDRCH. Wir nehmen einmal 
an, daß DURCH bereits mit Werten versorgt ist und sehen uns an. 
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was BEWERTUNG nun macht. Oie erste Zahl im Array DURCH stellt 
Anzahl der Kursteilnehmer dar. Wir gehen davon aus, daß der Kurs 
weniger als äÖ’O Teilnehmer besitzt, da wir ja nur Platz für 
insgesamt 100 Elemente mittels ALLOT reserviert haben. Achten Sie 
genau darauf, daß Sie nicht mehr Speicherplatz verwenden, als Sie 
reserviert haben. Sollten Sie” -fli der 'yotiiegenden 'Situation etwa 
versuchen, das 102te Element vor. DURCH zu beschreiben, dann 
können Sie unter Umständen wertvolle Information jkn FORTH-Wörter- 
buch dadurch zerstören. 

Jetzt zu dem Wort BEWERTUNG. Iji; Zeile 2 besorgen wir uns die 
Adresse des Arrays, indem wi® 4 ,-; seinen Namen DURCH hinschreiben. 
Genaugenommen steht jetzt die Adresse des ersten Datenelements 
auf dem Stack. Dieses Datenelement besorgen wir uns nun mit § . 

Vereinbarungsgemäß haben wir nun an oberster Stack-Position die 
Anzahl der Kurstei 1 nehme.- stehen. Zu dieser Zahl addieren wiä?/! niträ 
1 hinzu, pushen eine weitere 1 auf den Stack und haben damit die 
Pat#|fieter für sine DO-Sch 1 e i fe eingerichtet. In diese Schleife 
treten wir in Zeile 3 rillt dem bekannten Schlüsselwort DO ein. Das 
Wort entfernt den Anfangswert für den Schleifenindex sowie den 
Testwert Wd#.' Parameter-Stack und legt ihn auf den Return-Stack. 
Der erste Befehl in der Schleife CR sorgt dafür, daß die Pro. 
grammausgaben i es barer werden. Jetzt multiplizieren wir den 
Schleifenindex mit 2 und holen die Anfangsadresse des Arrays 
DURCH, auf die wir den soeben erhaltenen Wert (Schleifenindex mal 
2) addieren, '’gfä, diesem Zeitpunkt befindet sich rspmite die östigi 
na 1 ad resse 'loserer Daten, erhöht um zweimal den 'Schlei.iTenindex 
auf dem Stack. Als nächstes führen wir das Wort 0 aus. Dies be 
deutet, daß bei jedem Schleifendurchgang der Durchschnittswert 
eines Kursteilnehmers aus dem Arbeitsspeicher geholt, .und auf den 
S t a.ck gelegt wird. Wir können n i. Ch L ei'njtäöh den SchleiittilAftdex 
benutzen, um auf die einzelnen Elemente des Arrays DURCH ziiäjj. 
greifen, da ja zur Speicherung einer einfach genauen Integer zwei 
Byte benötigt werden. Das ist der Grund, warum wir vor dem Zu 
griff auf die Daten den Schleifenindex mit 2 multiplizieren. 

Jetzt können wiJK; .testen, ob der Teilnehmer bestanden «Bt: wir 

legen S;9 auf den Stack und subtrahieren diesen Wert vom Durch 
schnittswert des Kursteilnehmers. Wenn das Ergebnis größer Null 
dann besteht' der Teilnehmer, ist die Äftiferenz jedoch klei 
ner Null, dann ist er durchgefallen. Diese beiden FälAttl (unter 
scheiden wir, indem wir uns von dem Vergleichswort 0> ein Flag 
auf den Stack legen lassen. Falls dieses Flag "wahr" ist, kömmt 
der Teilnehmer durch, ansonsten fällt er durch. Mittels IF-ELSE- 
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THEN geben wifi' die jeweils passende Meldung aus und vergessen 
nicht, die laufende Nummer des Teilnehmers dabei m S L aufzunehmen. 

Wir könnten die Werte in den Array DURCH bringen, indem wir das 
im Beispiel (6-17) vorgestellte Verfahren benutzen . Dies ist je 
doch wesentlich mühseliger als das selbstdefinierte Wort INPDRCH, 
das Sie auch in Abbildung 6-3 sehen. Das Wort fordert den Benut 
zer selbsttätig zur Eingabe der ! ■^ötotigen Daten auf. Er muß nur 
meltjö’t die Durchschriijfc-fcswc rt„e e Lngcbcr. und braucht sich nicht rieh r' 
darum zu kümmern, daß diese an der richtigen Stelle im Array ab 

gelegt werden. Im einzelnen geht das folgendermaßen. In Zeile 10 
der Abbildung 6-3 geben wir die Meldung BITTE ANZAHL DER TEILNEH 
MER EINGEBEN: . Diese Teilnehmerzahl lesen wir danh:. in Zeile 11 
mit dem FORTH-Wort #IN ein. Der Benutzer sieht also ein Fragezei 
chen auf dem Bildschirm, und das Programm hält an, bis Cr die 
gewünschte Zahl eiögfegeben hat. Diese Zahl wird als nächstes 
dupliziert und „an Position JJ&ll des Arrays DURCH gespeichd®#^ das 
erreichen ganz eiJlf#CJl dadurch, daß wir den Varihblenna 

men den Speicherbefehl ! folgen lassen. Der Rest voö Zeile 11 

bereitet die Schleifenparameter vor. Vor Eintritt in die Schleife 
sorgen wir noch mittels CR dafür, daß die nachfolgende Eingabe 
auf f O rdo rung auf. einer eigenen Zeile zu stehen kommt . In der Zei 
le 12 geben wir die Meldung: "Durchschnitt des Teilnehmers Nr." 

aus. Hinter dieser Meldung zeigen wir dem Bediener den Schleifen 
Index. Das Eingabewort #IN besorgt sich &%n vom Benutzer die 
fragliche Punktzahl. Diese wird in Zeile 13 an der richtigen 
Stelle abgespeichert. Dazu pushen wir die Anfangsadresse von 

DURCH auf den Stack und addieren dazu den mit 2 multiplizierten 
Schleifenindex. Das Vorgehen ist hier also völlig analog zu dem, 
das wir in BEWERTUNG bereits kennengelerhf, haben. Nach einem 

Durchgang durch die Schleife ist im richtigen Element von DURCH 
der Punktedur ch SEbiiiit® ' des Teilnehmers abgespeichert . 

ARRAY - Wie man Arrays mit ALLOT vereinbart, haben wir bereits 
eifahren. Im MMSFORTH und anderen FORTH-Systemen gibt es jedoch 
ein bequemeres Verfahren^, jrisljfc dem Arrays vereinbart werdet) .iöh 
nen. Dazu benutzt man das Wort ARRAY in folgender Weise: 


100 ARRAY DURCH (6-19) 

Diese Kommandofolge bewirkt das gleiche wie die Zeile 1 von 
Abbildung 6-3. Es wird also ein Wörterbucheintrag für die Varia- 
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ble DURCH einger’Söfitet , der außerdem Platz für 101 einfach genaue 
Integers enthält. Wie wir jetzt wissen, werden dazu 202 Byte SM 
Arbeitsspeicher des Computers reserviert. Bei der Arbeife.. : mit 
ALLOT muß man die Anzahl der Bytes angeben, die reserviert werden 
sollen, während ARRAY direkt mit Array-Elementen arbeitet. Im 
Falie von 6-19 werden diese Elemente fortlaufend von 0 bis 100 
durchnum@liert . Das Wort ARRAY hat folgende Stack-Relation: 


(6-20) 


Eii|v .jfiit ARRAY vereinbartet Array kann insgesamt n + 1 Elemente 

aufnehmen, die von $' bis. ft 'därotetumeriert -sind. Der Platzbedarf 1 
für diesen Array beträgt 2 (n+1) Byte. Um die Adresse eines Array- 
Elements auf den Stack zu bekommen, geben wir lediglich die Eie 
mentnummer und den Namen des Arrays in dieser Reihenfolge ein. 
Durch Ausfüh rung von 


3 DURCH 


(6-21 


erhalten wir so z.B. die Adresse des ersten Bytes des vierten 
Elements von DURCH auf dem Stack. Rufen Sie sich noch einmal ins 
Gedächtnis, daß das erste Element die Nummer 0 besitzt. Deshalb 
erreichen wir mit (6-21) auch das vierte Array-Element . 

Als Beispiel für den Einsatz von ARRAY haben wir das Programm aus 
der Abbildung 6-3 noch einmal neu geschrieben. Sie sehen die ge 
änderte Fassung in Abbildung 6-4. Im wesentlichen handelt es sich 
dabei um das gleiche Programm wie in Abbildung 6-3, außer daß 
den Array DURCH -.|ppt dem FORTH-Befehl ARRAY vereinbaren. Außerdem 
sind jetzt die Adreßberechnungen einfacher, da wir den Schleifen 
Index, flicht mehr alt $1 ■ae-ltiplizieren müssen. Werfen Sie no.dh- 
einen Blick ääiÄ' Zeile 2 : Dort besorgen wi& tOts mittels 0 DURCH 
die Adresse des ersten Elements des Arrays. 

Wie Sie sehen können, benutzt man zur Adressierung von Arrays, 
di®. Äf®, ALLOT eingerichtet wurden, ein anderes Verfahren als für 
solche, die Sie sich mittels ARRAY besorgt haben. Verwechseln Sie 
nicht diese beiden Methoden! Das Verfahren mit ARRAY ist zwei 
felsohne einfacher £,,.||eider aber nicht Bestandteil von FORTH-79. 
Sollte Ihr System diese Möglichkeit zur Verfügung stellen, so 
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kann es sein, daß Sie zuvor die betreffenden Blöcke in den Spei 
eher laden müssen, ehe Sie auf :;{§3-ese Möglichkeit' zurückgreifer •• 
können, 


;(&■ ( Ein weiteres Beispiel fuer Arrays ) 

3 100 ARRAY DURCH 

2: : BEWERTUNG 0 DURCH § 1+1 

3 DO CR I DURCH § 59 - 0> II 

4 STUDENT Mt). «X BESTEHT " 

5 ELSE . " STUDENT NO . ” 1 . " FAELLT DURCH " 

6 THEN 

! ilg, LOOP ; 

8 

9 {Dateneingabe- einen Array) 

10 : INPDRCfi CR Bitte Anzahl der Teil®ehmer eingeben : " 

11 #IN DUP 0 DURCH 1 + 1 CR DO 

SSI Durchschnittswert des Studenten Nr. " gg * . #IN 

CR I DURCH ! 

14 LÖÄ CR ; 

1 5 


ABBILDUNG 6-4: Beispiel für den Einsatz von ARRAY 


6.3.1 Arrays und doppelt genaue Integers 


Sie können auch doppelt genaue Integers in Arrays speichern. Auch 
dazu gibt es wieder zwei Verfahren, wobei wir uns zuerst dem njpjfc 
tels ALLOT zuwenden wollen. Wenn wir mit diesem FORTH-Wort den 
Speicherplatz einer Arrayvariablen erweiterten, dann haben wiss 
bisher immer für jede zu speichernde einfach genaue Integer zwei 
Byte reserviert. Da doppelt genaue Integer einen doppelt so gros- 
en Speicherplatzbedarff' Ijaben, müssen wir entsprechend Ä Byte 
jeden zu speichernden Wert vereinbaren: 


2VARIABLE WORK 40 ALLOT (6-22) 

Wir richten also zuerst eine 'doppelt genaue Variable mit dem 
Namen WORK ein und erweitern deren Speicherkapazität dgtiptsh 40 
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ALLOT um weitere 40 Byte. Wenn wir jetzt WORK 4 + eingebei 
r.aben wir danach die Adresse der zweiten doppelt genauen 
in dem Array WORK auf dem Stack. Wenn wir doppelt genaue 
in e i-söj* Schleife verarbeitet}- und über den SCh.l elfer, i r.dex 
chen wollen, dann müssen wir den Schleifenindex mit 4 rm; 
zieren. Dies ist analog zu dem Verfahren in Abbildung 6-3, 
vir den Schleifenindex 2 Jji||it^ipii.ziert haben, jlijö Sp 

yjr . d Lesen von doppelt genauen Array-Elementen müssen Sie £ 
:ie Wörter 2! und 2@ verwenden. 

Zs ist nicht einmal notwendig, doppelte Genauigkeit^ -'#.ü r d 
zangsvariable zu vereinbaren. Wir hätten in (6-22) WORK 
sogut mit VARIABLE vereinbaren können. In diesem Fall kann 
•den ersten beiden ;^tes des Arrays eine einfach genaue 
speichern, während die nachfolgenden Bytes jeweils in Viei 
:.en zur Speicherung von doppelt genauen Werten dienen. All 
»acht. dieses Verfahren’ -die Ad reibe r-echnung für die Array-E 
^umständlicher . 

Wenn Ihr FORTH-System über diese Möglichkeit verfügt, dann 
Sie auch fSi®. dem Befehl DARRAY Arrays mit doppelt genaue: 
zers vereinbaren. Auch dieses Wort ist kein Bestandte 
rORTH-7 9, aber im MMSFORTH .finden. Es funktioniert : -ä^. -! 
liehen genauso wie ARRAY. Seine Stack-Relation lautet: 


d -> 


Nach Ausführung von 


100 DARRAY WORK 


wir also einen s^S-Say mit dem Namen 




WORK eine 
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6.3.2 Arrays und Gleitkommazahlen 


Gleitkommazahlen sind kein Bestandteil von FORTH-79, können aber 
Jfö- MMSFORTKf und ähnlichen Systemen benutzt werden. Die hier dar 
gestellten Array-Wörter sind die von MMSFORTH. Sie sind also 
nicht standardisiert. Zur Einrichtung eines Arrays mit einfach 
genauen Gleitkommazahlen dient 2ARRAY, das im wesentlichen genau 
so wie ARRAY funktioniert, außer daß eben mit einfach genauen 
Gleitkommazahlen gearbeitet wird. Ähnlidh kann man mit 4 ARRAY 
Arrays mit doppelt genauen Gleitkommazahlen einrichten , 


6.3.3 Arrays mit Konstanten 


Gelegentlich ist es seht’ ;nütziidh,>. über einen Array zu verfügen, 
der eine Folge von Konstanten enthält;. Dies kann FORTH-7 9 

lefeft^t erreicht werden, indem man die Wörter CREATE und , ein 
setzt. Man kann diese beiden Wörter zwar getrennt, für sieh ver 
wenden, davon wird- dem Anfänger jedoch abgeraten. Wenn Sie ;ni©t|t 
genau mit der Arbeitsweise Ihres FORTH-Systems vertraut sind, 
dann sollten Sie sie also nur zusammen einsetzen. Bei Ausführung 
von CREATE wird ein Wörterbucheintrag für den Namen eingerichtet, 
der auf das Schlüsselwort folgt. So sorgt also 


CREATE TAB (6-26) 


dafür, daß für das Wort TAB elif Wörterbucheintrag eingerichtet 
wird. Allerdings wird zu diesem Zeitpunkt kein Speicherplatz für 
Daten vereinbart ! Mit dem FORTH-Kommando , w.ira die oberstenfg^te 
ger vom Stack entfernt und dafür im nächsten freien Wörterbuch 
eintrag ein Speicherbereich reserviert. Anschließend wird in die 
sem Speicherbereich die Integer vom Stack abgelegt. Angenommen, 
wir wollen in unserem Konstähten-Array TAB sechs Werte speichern. 
Dies erreichen wir dttr-Ötf folgende Kommandos : 


CREATE TAB 15 > 20 , 35 , 40 , 50 , 60 , 


(6-27) 
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;_e Zahlen und Kommas sind jeweils durch Leerzeichen getrennt, 
trSMf nt Siiö ~vpn FORTR als eigene Wörter erkannt werden. Wert*)- wir 
fef das FORTH-Kommando CREATE also den Namen des Arrays folgen 
, ;.piSe|i lind dahinter die entsprechenden Werte durch Komma get rennt 
i.f führen, dann werden diese Werte im Wörterbuch von FORTH an den 
messenden Steiljän abgelegt. Beispiel (6-27) sorgt dafür, daß iätf 
«irterbuch eijj: 'itihtrag TAB vorgesehejS,. wird. Als nächstes 

. :jn: die 15 auf den Stack. Das nächste Wort - , - reserviert 2 

direkt fester dem Wörterbuchei nt rag für TAB und speichert 
i»dt die 15. Entsprechend werden die anderen auf gef Kon- 

, tantenwerte gespeichert, 

;ie . einer nachfolgenden Ausführung des Wortes TAB findet sich an 
ru-erster Stack-Position die Adresse des ersten Daten-Bytes (in 
L-üeBu Fall der Zahl 15), Nocheinmal: CREATE reserviert keinen 

irei-oherplatz ■•fjfjj d i e DSt e n im Wörterbuch. der Array TAB mit — 

*r.s 1:5-17) erst einmal eingeiiJÄitet, dann kaftn mä-ft ihn wie jeden 
mi-«treü Arräy mit einfach genauen Integers behandeln. Man kann 
f : c_ = r Werte in TAB speichern, .indem man sich der bereits vorge- 
ilallten Verfahren bedient. Wenn wir einen Array nicht mit Kon- 
itantenwerten initialisieren müssen, dann sollte nicht CREATE 
: -ara_t.zt werden, da die Arbeäsjg'-- mit Arrays sonst ZU umständlich 
• -ri. In solchen Fällen sollten Sie den normalen Weg gehen und 
2_t ALLOT arbeiten. 


6 . 4 Mehrdimensionale Arrays 


■ »anrhe Anwendungen erfordert’ die Verarbeitung mehrerer Datenli 
sten (Arrays), die miteinander vo räcnüpft sind . So könnte- 'ift. -dem 
einen Array z.B. die Prüfungsleistung von 'Studenten enthalten 
sein, während der andere Äijray die Matrikelnummern -enthält . Es 
^äre nun wünschenswert, eine Verbindung zwischen der Leistung des 
Studenten und seiner Matrikelnummer herz ustellon . Für dieses Pro- 
a»Lem bieten meh rd : mens i.ona 1 e Arrays eine elegante Lösung. Seheri: 
-ir uns ein Beispiel an. Wir haben für die Teilnehmer an einem 
Kurs eine Matrikelnummer sowie die Buhktzahl in zwei Tests. Wir> 
•“-ollen den Durchschnitt des Studenten berechnen und neben seiner 
Matrikelnummer ausgeben. Dies macht das FORTH-Programm in Abbil 
düng 6-5. Die ersten drei Zeilen dienen zur Vereinbarung von drei 
r*-oterschiedlichen Arrays, die jedoch allesamt gleich lang sind . 
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5 

6 

9 

11 

ip 

SÄ'' 

§|| 


( Beispiel tue r parallelverarbeitung mehrerer Arrays 


VARIABLE IDNUMB 200 

VARIABLE GRADEI «S 

VARIABLE GRADE2 200 

: CLASS IDNUMB @ 

CR 2 I * GRADEI 
. * i STUDENT NO. 


ALLOT 

ALLOT 

ALLOT 

EE| a + 

+ @ % 

' I 2 


1 HAT DEN DURCHSCHNITT 


1 DO 

I * GRADE 2 + 
* IDNUMB + 

" | i , 1 


(Beispiel fuer Werteingabe in Arrays) 

: GRADEIN CR BITTE TEILNEHMERZAHL EINGEBEN " 

#IN DUP IDNUMB ! 1+1. CR DO 

CR . " MATRIKELNUMMER UND BEWERTUNG EINGEBEN " 
#IN # IN #IN 

12* GRADE2 + ! I 2 * GRADEI + ! tiS * IDNUMB + 


LOOP ; 


ABBILDUNG 6—5 : Ein Beispiel für mehrfache Arrays 


Im Array IDNUMB speichern wir die Matrikelnummern des Studenten* 
GRADEI enthält die Punktzahl im ersten Test, während GRADE2 di# 
Ergebgtjiäse des zweiten Tests beinhaltet. Zusätzlich merken --w^r 
uns in Position - von IDNUMB die Anzahl der Teilnehmer im Kurs. 

Die entsprechende Pcs i L :.©n der beiden anderen Arrays bleibt in 
dessen ungenutzt. 

Wir gehen jetzt davorf* aus , daß diese drei Arrays mit Daten ver 
sorgt sind und wenden uns der Arbeitsweise des FORTH-Wortes CLASS 
zu. (Vgl. Abb. 6-5) . -Die erste Ze : i e des Programms erhöht den 

"Teilnehmerzählet?*' ,t(Ä. 1; dazu besorgen wfjs» uns die Anfangsadresse 
des Arrays, indem wir seinen Namen rufen (IDNUMB) und uns an 
schließend mittels @ das nullte Datenelement dieses Arrays auf 

de# §tack legen lassen. Auf diesen Wert (die Anzahl der Teilneh 
mer) addieren wir als nächstes f mit der Kommandofolge 1 +. Die 

Anzahl der Teilnehmer soll nämlich als Testwert einer' Dö— Schleife 
d i enen, wobei wir bereits wissen, daß der Testwert in einer sol 

chen DO-Schleife um 1 höher sein muß als die Anzahl der ge- 
wünschten ÖMhchläufe (vorausgesetzt, der Index begiüllh mit wie 

es hier der Fall ist) . Das letzte Wort auf Zeile 4: 'Ipitet die 
Schleife ein, welche jetzt genausooft durchlaufen wie es 

Teilnehmer .Kurs gibt . Die Zeile 5 der Abbildung 6-5 dient 

dazu, für den ersten Studenten die Ergebnisse in den beiden Tests 
zu ermitteln. Dabei gehen wir wie üblich vor; Der ääöhleiißenindex 
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wird mit 2 multipliziert und anschließend diese Zahl auf die 
Startadresse des Arrays addiert, den wir bearbeiten wollen. Dies 
machen wir zweimal, einmal für GRADEI Ä® einmal, |JS|| GRADE2 . 
Danach haben wir die Punktzahl iftciden beiden Tests auf dem Stack 
und können sie mittels + addieren, um Jgjj-E die Durchschnittsbe 
rechnung alles vcrzube reiten . JSeile 6 dient dazu, neben eine!? 
Textmeldung die Matrikelnummer des Studenten auszugeben; die 
Matrikelnummer erreichen wir wiederum, indem wir den Laufindex 
mit 2 multiplizieren, diese Zahl auf die Startadresse des Arrays 
addieren und das Datenelement an der so berechneten Position 
mittels § holen, ifi Zeile 7 wird ®Än der ;Uy rchschri.it berechnet 
und ausgegeben. Nach Abarbeitung von Zeile 6 ist die Summe der 
Punkte in den beiden Tests oberster Stack-Eintrag. Diese Zahl 
teilen wir durch. j2 und geben den Quotienten aus . HÄ die 

Schleife beendet, und das LOOP AM. f Zeile 8 sorgt für einen Wie 
dereintritt, so lange die Testbedingung noch nicht erfüllt ist. 

In den Zeilen 10 bis 15 der Abbildung 6-5 sehen Sie ein Programm 
zur Eingabe der Daten. Dies folgt weitestgehend dem Verfahren, 
das wir aus Abbildung 6-3 schon kennen, außer daß nun Daten .ifi 
drei Arrays eingegeben werden müssepU Die Daten werderf folgen 
der Reihenfolge auf den Stack gelegt: Matrikelnummer ; 'Ipestl dßtk 

Test2 . Wir lesen sie a ; so in umgekehrter Reihenfolge vom Stack. 

Dieses Programm kann auch mit doppelt genauen Integers geschr i e 
ben werden; der Algorithmus bleibt der gleiche. Sie müssen nur 
die passenden Wörter für die Manipulation von doppelt genauen 
Integers einsetzen. 


6.4.1 Zweidimensionale Arrays 


Im lötzten Beispiel haben wir drei Arrays iäl Programm verwendet, 
die inhaltlich aufeinander bezogen sind. Jeder dieser Arrays war 
zur Aufnahme e: ner anderen Ait vori. Daten bestimmt . £ö solchen 
Fällen, in denen mehrere aufeinander bezogene Datensätze gegeben 
sind, ist es oft bequemer, mit zweidimensionalen Arrays zu arbei 
ten. Alle bisher betrachteten Arrays waren eindimensional . Einen 
eindimensionalen Array kann man sich als eine (beliebig lange) 
Liste von Daten vorstelle^v oder anders ausgedrückt, als eine 
Daten zeile mit (beliebig vielen) Datenspalten. Im Unterschied 
dazu kann ein zweidimensional#! Array nicht nur beliebig viele 


229 



6 Konstanten, Var lab J c und Arrays 


Datenspalten, sondern' ' y&iägjfa.. c ine größere Anzahl Jfiästenzeilen auf- 
weisen. Zweidimensionale Arrays haben daher die' logische Stru^ttfjfe- 
einer Wertetabelle; wer sich noch nichts unter einem zweidimen 
sionalen Array vorstellen kann, der denke an die bekannten Ent 
fernungätabellen&SKn denen die Entfrerffwig zwischen Städten <M». 
abzulesen ist. Hierbei handelt es sich um ein Beispiel für einen 
zweid]i®0ßSiöß'alen Array. 

NafpSrlieh können wir die Date$ äfaie das Beispielprogranwi .i# Abbil 
düng 2-5 auch in einem zweidimensionalen Array speichern. Jede 
Zeile dieses Arrays entspricht dann einem Studenten, wobei in 
Spalte 0 die MatrikelnummerH^jft Spalte 1 das Ergebnis. - des ersten, 
in Spalte 2 das Ergebnis des zweiten Tests zu finden ist (Beach 
tea Sie, daß wir die .fi^tenelemente mi*K :0 beginnend du r chrumer ie 


*>|fä ( Beispiel fuer einen zweidimensionalen Array ) 

I 2 100 2 ARRAY GRADE 

p : CLASSAV 0 0 GRADE @1+1 DO 

3 CR I 1 GRADE @12 GRADE § + 

4 . " STUDENT NO . " 10 GRADE § . 

5 ." HAT DEN DURCHSCHNITT: " 2 / 

6 LOOP ; 

7 

8 (Werteversprgung des Arrays ueber Tastatur) 

9 : GRADEIN CR ." BITTE ANZAHL DER . TEILNEHMER EINGEBEN " 

1 0 1i\iM tjüp \» WSW \+ \ 

II CR ." MATRIKELNUMMER UND BEWERTUNGEN EINGEBEN " 

12 #IN #IN #IN 

13 12 GRADE ! I 1 GRADE ! I 0 GRADE ! 

14 LOOP ; 

ABBILDUNG 6-6: Ein Beispiel für zweidimensionale Arrays 


Der Befehl zur Def liSJtiön eines zweidimeBSi onalen Arrays ist: kein 
Bestandteil von FORTH-7 9, -’fSfndet sich jedoch in MMS-FORTH . Er 
lautet 2 ARRAY und wird folgendermaßen angewendet : 


% hv>;.:2ARRAY GRADE 


(6-28) 
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Das Wort 2ARRAY erwartet zwei ÄlßfaSti genaue Integers dem 

Stack, die es davon entfernt. Es vereinbart daraufhin einen zwei 
dimensionalen Array - in diesem Fall mit dem Namen GRADES -, der 
|||| 4r 1 Zeilen und +1 Spalten hat. Die erste Zeile und Spalte 
tragen jeweils die Nummer 0. Die Stack-Relation 2ARRAY : 


(6-29) 


Die Werte für n A n 2 . müssen älöh dabei zwischen f,' und 254 be 

wegen . 

Wenden wir uns jetzt der Frage zu, wie man Daten in einem zweidi 
renslona lern Array speichern bzw. aus ihm auslesen kann. Um bei 
spiärlsweise die Adresse des Datenelements a$|t.: ‘ den Stack zu bekam 
men, das sich in Zeile n^ und Spalte n 2 des Arrays GRADE befin 
det, müssen wir eingeben: 


«4 n 2 GRADE (6-30) 

Das bedeutet, daß wii die el^fiach genaue Integer, die 

Zeile 4, Spalte 3 des Arrays GRADE befindet, m.: t folgender Ein 

gäbe erreichen: 

4 3 GRADE 

Als Beispiel für den Einsatz zweidimensionaler Arrays wollen wir 
das Programm aus Abbildung 6-5 neu schreiben. Sie sehen die ver 
änderte Ve rs i©rs in der Abbil-iüpcig 6-6. 

Wir brauchen jetzt nur mehr eine Zeile zur Einrichtung des nöti 
gen Arrays, der diesmal jedoch zwei Dimensionen hat; das besorgt 

die Zeijj$\;l des Beispielprogramms. Nach ihrer Ausführung ist im 
FORTH-System Speicherplatz für einen zweidimensionalen Array mit 
dem Namen GRADE reserviert, der 101 Zeilen mit jeweils 3 Spalten 

besitzt. Wir gehen davon aus, daß die Gesamtzahl der Teilnehmer 
am Kurs ’$Kä Element (0,0) des Arrays gespeichert: ist. Sie daraKlOC 
.^fppht überschreiten, da sonst die Straygrenzen gesprengt werden. 
Übrigens bezieht man sich auf Elemente eines Arrays durch Angaben 
in der Form (Zeile, Spalte) . Zeile 2 beginnt die eigentliche 

Defijifeition des neuen Wortes CLASSAV; als erstes werden die Para 
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meter für eine DO-Schleife eingerichtet, wozu wir uns die Anzahl 
de jt' ■'Teilnehmer besorgen und erhöhen. Das Verfahren ent 

spricht also genau dem von Abbildung 6-5, wir müssen jetzt jedoch 
zwei Werte auf den. Stack legen, um an das erste Datenelement des 
Arrays GRADE zu gelangen. In Zeile 3 holen wir die Datenelemente 
aus GRADE, die in der dem Schleifenindex entsprechenden Zeile und 
den Spaltes j und 2 $tfi. , finden sind. Die Mätrike lnummer des Teil 
nehmers finden wir in Spalte 0. Wir besorgen sie uns in Zeile 4, 
d.h., wir holen das Element aus dem Array, das in der dem Schlei 
fenindex entsprechenden 2aile.i '%&$?* Spalte 0 zu fanden ist. Der 
Rest des Pregtaflims entspricht genau dem aus Abbildung 6-5. 

Die Zeilen 8 bis 13 der Abbildung 6-6 zeigen die De finit: oh des 
FORTH-Wortes GRADEIN, mit dem der Benutzer Daten in den Array 
GRADE eingeben kann. Auch dieses Programm folgt in seinen Verar 
beitungsschritten dem aus Abbildung 6-5, außer daß jetzt die nö 
tigen Verfahren zur Speicherung in zweidimensionalen Arrays ange 
wendet werden. Beachten Sie, daß das ? rogramir aus Abbildung 6-6 
eihiSjieher ist als das Abbildung 6-5. 


6.4.2 Zweidimensionale Arrays und doppelte Genauigkeit 


Mit dem FORTH-Kommando 2DARRAY kann man einen zweidimensiöh'aleii 
Array vereinbaren, :-i5pV?jdem doppelt genaue Integers gespeichert 
werden . Das Worft ' ;4..st zwar kein Bestandteil von FORTH-79, wurde 
jedoch äfc MMSFORTH aufgenommen. Sie Details des Umgangs mit 
2DARRAY entsprechen denen. fjjr ARRAY. Die Stack-Relation lautet: 


( 6—3.1): 


Die Integers, mit denen der |ifH$Eäftg des Arrays festgelegt wird*; 
müssen einfach genau seifig- sich also zwischen 0 und 65535 bewe 
gen. Zum Speichern und Wiederauf finden von Daten in solchen Ar 
rays müssen die Kommandos 2§ und 2! verwendet werden. 
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6.4.3 Zweidimensionale Arrays und Gleitkommazahlen 

y.MSFORTH und andere FORTH-Systeine stellen Wörter zur Verfügung, 
mit denen zweidimensionale Arrays v.ön G’ eitkörr.mazah $ en definierte 
■'erdeti können. Da sie- flicht zünt. FORTH-7 9-Standard gehörehj» können 
sich diese Wörter von System zu System unterscheiden. Für einfach 
genaue- Gleitkommazahlen definiert man einen" zweidimensionalen 
Array mit dem Wort 22ARRAY. Die Handhabung eines solchen Arrays 
entspricht der, die wir von 2 ARRAY schon kennen, außer daß jetzt 
keine eiB.®ö.eh genauen;, jpategers, sonderst' Gleitkommazahlen im Array 
gespeichert werden. Für den Zugriff (Lesen und Schreiben) nimmt 
man die Wörter 2 0 und 2!. Die Stack-Relation entspricht der von 

I. 6-29). Bie Zahlen, die die Abmessungen des Arrays festlegen (n A 
und n 2 ) sind einfach genaue Integers. Auch die Zahlen, mit deren 
‘UfcLfe man auf ein einzelnes Element des Arrays zugreiftiäj* inüsserfv 
einfach genaue Integers sein. 

Ferneihift ist es möglich, durch das FORTH-Wort 2 4 ARRAY eine- zwei- 
dimesionalen Array für doppelt genaue Gleitkommazahlen zu verein 
raren. Bis auf den Umstand, daß für den Datenzugriff die Wörter 
4§ und 41 verwendet werden müssen, gleicht die Arbeit mit solchen 
Arrays denen mit Gleitkommazahlen von einfacher Genauigkeit. 


6 . 5 Übungsaufgaben 

In einigen der folgenden Übungsaufgaben sollen Sie neüfi|v -FORTH- 
Wörtsr definieren bzw. Programme schreiben. Überprüfen: Sie diese, 
indem Sie sie auf Ihrem Computer laufen lassen. Versuchen Sie, 
möglichst kurze Programme zu schreiben, indem Sie Teilaufgaben 
durch Modularisierung an Unterwörter vergeben. 


6-1 Erörtern, Sie den Unterschied zwischen Konstanten und Varia 

6-2 Schreiben Sie ein Programm, das den Umfang und den Flächen 
'$#&£££ eines Kreises berechnet üad dabei die Kreiszahl n als 
Konstante verwendet. Das Programm erwartet den Radius des 
Kreises auf dem Stack., ^ig||§ : '-iBerechnuhgi des Kreisumiaags dient 
die Formel 2Tr, während die Formel für die Berechnung der 
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Kreisfläche r t lautet. Legen Sie in diesem Programm für 
den Wert 3,142 zugrunde. Falls nötig, sollten Sie Ihre Werte 
skalieren . 

6-3 Erörtern Sie den Vorteil, der sich durch den Einsatz von 
Konstanten in FORTH-Wörtern ergibt. 

6-4 Wiederholen Sie Aufgabe 6-2, wobei Sie diesmal für n den 
Wert 3,1415927 ansetzen. 

6-5 Wiederholen Sie Aufgabe 4-8 mit Variablen, 

6-6 Wiederholen Sie Aufgabe 4-10 mit Variablen. 

6-f WiederholenSie Aufgabe 4-16 mit Variablen. Die Punktzahlen 

sollten nicht auf den Stack gelegt, sondern direkt vom 
Benutzer im Programm eingegeben werden. 

6-8 Schreiben Sie ein FORTH-Worl^ das unter Verwendung von Va 
riablen die Fakultät berechnet. 

6-9 WiederholenSie Aufgabe 6-8 $|J§p doppelt genauen ijsstegers. 

6-10 WiederholenSie Aufgabe 6-2 mit einer Gleitkommakonstantd* 

6-l : i. WiederholenSie Aufgabe 6-10, wobei Sie sowohl Gleitkommava 

riable als auch Gleitkommakonstanten einsetzen sollen. 

6—0 Wiederholen 'Sie Aufgabe 6-11 mit doppelt genauen Variablen 
und Konstanten,* Legen Sie den Wert von zugrunde, der in 
Aufgabe 6-4 angegeben ist. 

6-13 Wiederholen Sie Aufgabe 6-8 mit Gleitkommavariablen. 

6-14 Wiederholen Sie Aufgabe 6-13 mi’t doppelt genauen Gleitkomma 
variablen . 

6-15 Was ist ein Array? 

6-16 Wiederholen Sie Aufgabe 5-f|& berechnen Sie diesmal jedoch 
die Provision 'einer größeren Anzahl von Verkäufern. Die 
Verkäufer werden über ihre Personalnummer identifiziert. Ihr 
Programm sollte Arrays verwenden. Gehen Sie davon aus, daß 
die Firma nicht mehr als 250 Verkäufer hat. In Ihrem Pro- 
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g raSur. sollte die Möglichkeit vorgesehen seih, auf e,j,§4 
fache Art Daten in den Array einzugeben bzw. von dort zu 

— 1'7 Wiederholen Sie Aufgabe 6-16 mit doppelt genauen Jntegers . 

-i'8 Schreiben Sie ein Programm, das pythagoreische Zahlentripel 
bere$$$äet • Speichern Sie die Daten. • in einem Array . Das 
Programm sollte die im Array gespeicherten Werte ausgeben 
können . 

-i'9 Wiederholen Sie Aufgabe 6-18 mit doppelt genauen Integers . 

r-20 Wiederholen Sie Aufgabe 6-16 mit ©äftfadh genauen Gleitkomma 
zahlen . 

•—21 Wiederholen Sie Aufgabe 6-16 mit doppelt genaues- ^Gleitkomma 
zahlen . 

-22 Wiederholen Sie Aufgabe 6-18 mit einfach genauen Gleitkomma 
zahlen . 

—23 Wiederholen Sie Aufgabe 6-18 mit doppelt genauen Gleitkomma 
zahlen . 
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7 Zeichen und Zeichenfolgen 


tt den FORTH-Wörtern, die wir bisher selbst definiert haben, 
■in.-rten wir nur Zahlen manipulieren'. Jetzt? wollen sehen, "wie 

•r. auch mit Buchstaben und Buchstabenfolgen (Zeichenketten oder 
iinngs) in Programmen arbeiten kann. Dabei beschränkt sich unse- 
Darstellung nicht nur die Buchstaben des Alphabets, son- 

isrr. auch auf;« ly-f^ernzeichen (0-9) und Interpunktionszeichen und 
ar iere Sonderzeichen . Für diese Art von Zeichen gibt es einen 
* 1 : hausdruck : Man bezeichnet die Buchstaben, Ziffern und Sonder 

liehen mit dem umfassenden Ausdruck alphanumerische Daten . Ein 
zeine Zeichen bilden zusammengeschrieben sog. Zeichenketten oder 
iinngs. Wir werden in diesem Kapitel aüch FORTH-Wörter kennen- 
-erneaf, .mit denen man Strings manipulieren kann. 

äV _r Speicherung eines alphanumerischen Zeichens benötigt man bei 
»er. meisten FORTH-Systemen nur ein einziges Byte. Deshalb bespre- 
:nsn wir in diesem Kapitel auch FORTH-Wörter, mit denen man ein 
zeine Bytes manipulieren kann. Die Operationen, die wir dabei 
••erstellen, können sowohl auf Zahlen als auch aasig. Zeichen ange- 
•,*e>ndet werden. In einem 8-Bit-Byte kann man nämlich auch vorzei- 
crenlose Integers im Bereich von 0 bis 255 speichern. 


7 . 1 Zeichen - Bytemanipulationen 


Dieser Abschnitt legt dar, wie man in FORTH alphanumerische Daten 
eingeberi.;,- ausgeben und verarbeiten kann. Wir werden auch sehen, 
-ie mftEf Text speichert und manipuliert. Da das FORTH-System Zei- 
rnen byteweise ablegt, werden wir uns auch mit FORTH-Wörtern be 
schäftigen, die uns die Bearbeitung einzelner Bytes eflauben. 

C! und C§ - Das FORTH-Wort C! entfernt zwei einfach genaue Zahlen 
vom Stack; der erste Stackeintrag wird als Adresse behandelt, 
■-‘ährend det zweite Stacke i ntrag eine «örzeichenlose Integer sein 
»uß . Die acht, niedrigstwertigen Bit dieser Integer werden dann an 
der angegebenen Speicheradresse abgelegt. Wir haben folgende 
Stack-Relation : 
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C! funktioniert also fast genauso wie !, außer daß nur 8 Bits, 
(also e : r. Byte) gespeichert werden. B Le Stack-Operationen sind 
jedoch bei beiden Wörtern gleich (ein# einfach genaue Integer be 
legt auf dem Stack zwei Byte.) Mit dem Stack-Symbol "a" bc/.c ich 
nen Uff bekanntermaßen Adressen. Sine Adresse ist aber ftCbhts 
anderes als eine vorzeiöhenlose eihfnch genaue integer. 

Zum Wiederauf finden gespeicherter Zeichen dient das FORTH-Komman- 
do C . Es entfernt die oberste Zahl vom Stack und behandelt sie 
als Adresse. Das Byte, das an dieser Adresse gespeichert ist, 
wird geholt und als genaue Integer auf den Stack gelegt. 

Da eine c : rtfach genauft Integer doppelt so lang wie ein Byte ist, 
werden die acht höchstwertigen Sit der aapf den Stack gelegten 
Zahl Null gesetzt. Die acht niedrigstwertigen Bit entsprechen 

jedoch der geholten Originalzahl. Die Stack-Relation lautet: 


Die beiden Wörter C! und C§ behandeln den Stack somit so, als ob 
.©.i h.f ajSsi genaue lältegers gespeichert bzw. geholt werden sollen. 
Der gespeicherte Wert belegt im Wörterbuch aber tatsächlich nur 
ein Byte, 

CMOVE und <CMOVE - Bei der Ar bo : t si'lfe Zeichen, die s i ch 
terspeicher befinden, taucht oft die Notwendigkeit auf, ganze: 
Speicherblöcke zu verschieben. Dazu müssen Sie s ich nur einmal 
vorstellen, daß die im Arbeitsspeicher abgelegten Zeichen einen 
Absatz eines längeren Textes darstellen, den wir ;"£■&. einem selbst; 
geschriebenen Texu Programm verarbeiten wollen. Jjjjpt diesen Text 
wollen Sie nun - irgendwo in der Mitte -h nela.es Textmaterial ein- 
fügen. Dazu wäre es bequem, mit einem einzigen Kommando die ganze 
Textzeile an eine andere Stelle des Arbeitsspeichers verschieben 
zu können, gta Platz iÖr das neue Textmaterial 0 $. erhalten* Die 
zwei oben genannten FORTH-Wörter unterstützten uns bei dieser 
Aufgabe. Das erste - CMOVE - könnte zum Beispiel folgendermaßen 
eingesetzt werden: 


34500 38000 100 CMOVE (7-3) 
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Dieses Beispiel bewirkt, daß s§*^fsQ0 Byte langer Block, der bei. 
der Adresse 34500 beginnt, an eine neue Stolle 'im Arbeitsspeicher 
verschoben wird, und zwar beginnend bei Adresse 38000. Dadurch 
wird |£ke Ausgangsinformation dupliziert, d.h. , die Säftes, die 
zwischen Adresse 34500 und 34599' Jm Arbeitsspeicher stehen, wie 
derholen sich jetzt an den Adressen 38000 bis 38099. Bei dieser 
Art der Blockversähiebung bleiben die Ausgangsadressen also 
verändert. Sie stehen jetzt jedoch zur Speicherung neuer Infoxma 
tionen zur; Verfügung. Die Informationsverschiebung geschieht 
byteweise "von tjnten nach oben", d.h., zuerst wird das Byte ah 
Adresse 34500 an die Adresse 38000 bewegt, dann verschiebt FORTH 
das Byte an Adresse 34501 nach 38001 usw. Die Reihenfolge, in der 
die einzelnen Bytes bewegt werden, scheint für den Benutzer un 
interessant zu sein. Im vorhergehenden Beispiel ist sie es auch. 
Es gibt jedoch bestimmte Fälle, denen der Benutzer die Details 

des Verschiebeprozesses beachten muß. Wenn wir z.B. folgendes 
schreiben : 


34500 34550 .'ISO MOVE (7-4) 


dann werdet ;zwar w : eceruir 100 Byte verschoben, die Verschiebe 
distanz beträgt diesmal jedoch nur 50 Byte. Bei der ersteh Byte 
bewegung überschreiben wir die Daten an Adresse 34550 unwie 
derbringlich . Di£; j>0 Byt#^ die ab dieser Adresse beginnen, werden 
also de facto gar nicht mit verschoben. Eine Lösung für dieses 
Problem könnte : bestehen, den 100-Byte-Block weiter als ,101) 

Speicherstellen zu verschieben und dann die richtig kopierten 
Daten mit einem weiteren CMOVE an die gewünschte Stelle zu brin 
gen* Glücklicherweise gibt es jedoch ein anderes FORTH-Wort, das 
dieses Problem löst . Dieses lautet CCMOVE und arbeitet im wesent 
liehen wie CMOVE, außer daß bei dem Verschieben ©it den höheren 
Adressen begonnen wird. Deshalb bewirkt 


34500 34550 100 CCMOVE (7-5) 


das Folgende: Erst wirj| der Inhalt der Adresse 34599 an der Spei 
cheradresse 34649 wiederholt. Dann wird der Inhalt von Adresse 
34598 verschoben, und zwar an Adresse 34648 usw. Somit werden die 
Daten an der Ausgangsposition der Verschiebeoperation nicht über 
schriebe|iff.-Sehe sie nicht an die gewünschte Zielposition dupli- 


241 



7 Zeichen und Zeichenfolge! 


ziert wurden. CMOVE und <CMOVE führen also dieselbe Funktion aus, 
gehen dabei jedoch unterschiedlich vor. Beide Wörter können na 
tllkli'ch auch dazu benutzt werden, Speiqharblöcke von höherenj^i&R/ 
niedrigere Speicheradressen zu verschieben. Beachten Sie, daß 
C CMOVE noch kein Bestandteil vq% FORTH-79 ist. In MMSFORT« und 
anderen FORTH-Systemeifc. *|st es jedoch implementiert. Beide Wörtekj 
besitzen die Stack-Relation: 


(7-6) 


SM» fe Byte langer Block, der an Adresse a A begiÜBijag*.,wird der 
neuen Startadresse verschoben. 

HOVE - Auch dieses Wort dient zum Verschieben von Speicherblöcken 
im Computerspeicher und ähnelt CMOVE, außer daß beim Verschiebe 
Vorgang jeweils, zwei Byte auf einmal kopiert werden. Wenn wir 
eingeben : 


a ± a 2 n MOVE 

dann werden 2n Byte verschoben, beginnend bei Adresse a A mit dem 
Ziel a 2 _ MOVE ist Bestandteil von FORTH-79. 

KEY - Mit dem FORTH-Kommando KEY können Sie alphanumerische Daten 
von der Tastatur eingeben. Bei Ausführung von KEY wird der ASCII- 
Code (vgl. Abschnitt 3-2) des nächsten von der Tastatur eingege 
benen Zeichens als vorzeichenlose einfach genaue Integer auf den 
Stack gelegt. Beachten Sie, daß ASCII-Codes stets kleiner oder 
gleich 255 sind, so daß man sie auch als vorzeichenlose Integers 
3}ff einem einzigen Byte darstellen kann. Das bedeutet r daß man die 
ASCIX-Dats.tellung eines Zeichens mit den Speicherkommandos C! 
oder C@ manipulieren kann. Wenn wir also eingeben: 


KEY Z (RETURN) 


dann erhalten wir als obersten Stack-Eintrag die Zahl 90 als 
vorzeichenlose einfach genaue Integer, weil dies der ASCII-Code 
für den Buchstaben Z ist. Die Stack-Relät&'on fSf§s KEY lautet: 
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Wie Sie wissen, dient in Stack-Relationen der Buchstabe "u" zur 
Darstellung von vorzeichenlosen leinfach genauen Integers. Bei 
Ausführung von KEY wird allerdings das nächste Zeichen von der 
Tastatur nicht sSf dem Bildschirm ÄÖsgegeben (geechot) . Das be 
deutet, daß bei Ausführung von (7-7) der Benutzer auf seinem 

Bildschirm nichts zu sehen bekommt. 

EMIT - Das FORTH-Kommando EMIT dient zur Ausgabe von ZeicherJ’. 

aufgrund ihres ASCII-Codes. Dazu entfernt EMIT eine vorzeichenlo 
se einfach genaue Integer vom Stack und gibt das Zeichen aus, das 
gemäß der ASCII-Code-Tabelle fieser Zahl entspricht. Beachten 
Sie, daß der Stackwert zwischen 0 und 1 liegen muß. Durch Aus 
führung von 


90 EMIT (RETURN) 


(7-9) 


erhalten wir so ein großes Z dpS dem Bildschirm. EMIT föjt, folgen 
de Stack-Relation: 


(7-10) 


Wir wollen unsere neu gelernten Wörter gleich in einem Beispiel 
anwenden. äfj- Abbildung 7-1 sehen Sie ein kleines Programm, y&fc. 
dem Textmaterial in einen Array eingegeben werden kann. In diesen 
Array jKftlnöft Sie etwa einen kurzen Brief eingeben und spätes- 

wieder ausdrucken oder den Text sogar mit -einem - selbstgeschrie 
benen - Textprogramm bearbeiten. Zur Einrichtung von Byte-Arrays 

müssen wir die Verfahren aus dem letzten Kapitel anwenden. 

Jetzt zu den Details des Programms in Abbildung 7—1. In Zeile 2 

besorgen wir uns Speicherplatz für 1024 Byte, indem wir zuerst 

e i ne Variable TEXT vereinbaret: and deren Speicherumfang dann mit. 
tels ALLOT «stsdehnen. Wir können in diesem Array Jetzt 1024 Zei 
chen speichern. Die ersten beiden Bytes, die TEXT ursprünglich 
durch VARIABLE zugewiesen wurden, benutzen wir dazu, die Anzahl 
des tatsteßhjijdh eingegebenen Zeichen [MM' dem Array zu speichern. 
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0 ( Einfache )J8®n- und Ausgabe 'von Zeichen J 

1 VARIABLE TEXT 1024 ALLOT 

2 (Zeicheneingabe) 

3 : SPEICHERE CR 1 024 1 DO KEY DUP EMIT DUP 

4 "EXT p| 4; -C ! 

■'S 35 ff 0= 

6 IF LEAVE I 1 - TEXT ! THEN 

7 LOOP CR ; 

8 

9 (Gespeicherte Daten ausgeben) 

: AUSGABE CR TEXT § 1 DO 

:% M TEXT 11+ -C3 

1 2 EMIT 

LOOP CR ; 

■t#- 

ABBILDUNG 7—1: Einlesen von Zeichendate® Arrays 


Das eigentliche "Speicherwort" beginnt in Zeile 3 und trägt den 
Namen SPEICHERE.. Im wesentlichen besteht dieses Wort aiüä- einer 
Schleife, die, 1024mal wiederholt wird. Nach Eintritt in di©: 
Schleife wird das Wort KEY gerufen, wodurch das Programm anhält 
und wartet, bis der Benutzer eine Taste gedrückt hat. KEY wandelt 
dann diesen -Tastendruck den entsprechenden ASCII-Code um, den: 

es auf den Stack legt. Wir duplizieren die Zahl und geben mittels 
EMIT das entsprechende Zeichen wieder aus, so daß der Benutzer 

auch sieht, was er eingegeben :jiat . Wieder duplizieren die 

Benützereingabe . Mfes ist der letzte Befehl von Zeile 3. In Zeile 
4 sorgen wir dafür, daß das eingegebene Zeichen an der richtigen 

Stelle im Array TEXT abgelegt wird. Dazu besorgen wir uns difL- 

Startadresse von TEXT sowie den T.auf i. r.dcx der Schleife. Auf die 
sen Wert addieren wir 2 (da ja die fersten beiden Bytes von TEXT 
zur Speicherung der Zeichenzahl dienen) , und nach Addition mit 
tels + erhalten wir die richtige Adresse. An dieser speichern wir 
sodann mit C! die Benutg-eEfeihgabe . Dieser Prozeß wiederholt sich 
bei jedem Schleifendurchgang, bis TEXT die gewünschten Daten 
enthält. Da es aber sein kann, daß der Benutzer nicht 1024 Zei 
chen eingeben, sondern vorzeitig aufhören will, überprüfen wir 
noch auf ein spezielles Endezeichen in Zeile 5. Dazu vereinbaren 

wir, daß die Eingabe 431 den Array TEXT beendet wird, sobald def;. 

Beftttgz-feai :t#" eijsgibt; dieses Zeichen hat den ASCII-Code 35. 
Natürlich müssen Sie nicht unbedingt das # als Endezeichen ver 
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wenden; jedes andere Zeichen ist möglich, allerdings;. .Äst SfV 
bedenken, daß dieses Zeichen in normalem Textmaterial vermutlich 
nicht vorkommt. Nun zu Zeile $>, in der überprüft wird, ob der 
Beisitzer die #-Taste gedrückt hat.: .Dazu subtrahieren wir 35 Wia# 
obersten Stack-Eintrag und überprüfen' fttlt- 0 = auf Gleichheit' mit 
0. Wenn 0 = ein "wahres" Flag hinterläßt, dann ist es Zeit, die 
.Schleife zu beenden, wofür LEAVE sorgt. Nach Verlassen rief. 
Schleife müssen wir jedoch noch die Anzahl der eingegebenen Zei 
chen an, den Anfang des Arrays schreiben. Dazu erniedrigen; Wir den 
Schleifenindex um 1 fl 1 — ) . Diese Zahl wird ganz am Anfang des 
Speicherbereichs für TEXT abgelegt. Jetzt sind wir mit SPEICHERE 
fertig, und der Array TEXT enthält die Zeichen, die der Benut#K|? 
von der Tastatur eingegeben hat. In den ersten beiden Bytes des 
Arrays steht außerdem nach, wie .viele Zeichen er ^ingegeben hat. 

Die Zeilen 9 bis 13 der Abbildöh® 7- 1 zeigen das Wort AUSGABE, 
mit welchem man den Text im Array TEXT auf dem Bildschirm anzei- 
gen kann. Das Wort besorgt sich zuerst in Zeil® 10 die Anzahl der 
auszugebenden Zeichen und legt sie auf den Stack. Dieser Wert 
dient als Testwert für eine DO-SchIe$:ie> deren Schleifenkörper in 
Zeile 11 beginnt. Hier wird der ASCII-Code jedes im Array gespei 
cherten Zeichens geholt; EMIT wandelt diesen Code dann in das 
entsprechende Zeichen um und gibt es auf dem jjildschirm aus. 
Dieses Verfahren wiederholt bei jedem Eintrag im Afcray TEXT. 

Wir wollen einmal sehen, ob es uns gelingt, Textmaterial an 
beliebiger Stelle in den Array TEXT ginzufügen. Dies ist eine. 
Fähigkeit, über die jedes TextverarbeS-jljängsprogramm verfügen muß. 
Das Programm aus der Abbilds®.®' 7-2 löst diese Aufgabe. 

Wenden wir uns nun diesem neuen Programm zu, dem wir den Namen 
EINFGN gegeben haben. Wir gehen davon aus, daß der Block aus der 
Abbildung 7-1. .-#e laden ist -ijifid bereits Daten.. 0p den Array TEXT 
eingegeben wurden. Im Programm der AbbildUfift 7-2 nehmen wijS* .-pgcf 
nerhin an, daß der einzufügende String höchstens 10 Zeichen lang 
ist. jQSe jlijifügezeichen werden in einem separaten Array zwi 
schengespeichert , der den Namen EINFBUF trägt und in Zeile 1 der 
Abbildung 7-2 vereinbart wird. Wie schon in den anderen Program 
meh dienen die ersten beiden Bytes von EINFBUF dazu,- die. Anzahl 
de f?' tatsächlich einzufügenden Zeichen )**.• speichern. SÄ Zeichen 
selbst stehen dann im Rest des Arrays. Wüg? JcÖBnen die. Zahl der? 
Zeichen, die eingefügt werden können, beliebig vergrößern, indem 
wir diesen Zwischenspeicher erweitern. 
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0 ( B&Sfuegen eines Strings ) 

1 VARIABLE EINFBUF 10 ALLOT VARIABLE POINT 

2 : EINFGN CR AB WO SOLL EINGEFUEGT WERDEN? " #IN 

3 CR . " BIS ZU 10 EINFUEGE ZEICHEN EINGEBEN 

4 101 DO KEY DUP EMIT DUP 

5 EINFBUF C! 

6 EINFBUF I ! 35 - 0 = 

% IF LEAVE TEEN II- EINFBUF ! 


8 LOOP CR 

9 TEXT 2 + POINT 0 

10 TEXT § POINT § 

1 1 'ITNFBUF 2 + TEXT 2 

1 2 EINFBUF § CMOVE 

1 3 EINFBUF § WORDS +! 

14 
1 5 


+ DUP EINFBUF § 
<MOVE 

+ POINT 0 + 


ABBILDUNG 7-2: .Einfügeft von Textmaterial in den Array WORDS 


In der Fachsprache der Programmierer werden solche Zwischenspei 
eher auch genannt. Wir benötigen noch eine zweite Varia 

ble, die wir POINT nennen und in der wir' 'Uti s die Position merken, 
an der der Text in den Array TEXT eingefügt werden soll; diese 
Variable wird ebenfalls in Zeile 1 vereinbart . 

Das eigentliche Einfügeprogramm mit dem Namen EINFGN fragt als 
erstes den Benutzer ’öaeft der Stelle, an der die neuen Zeichen,, ifjs 
den bereits existierenden Text eingefügt werden sollen. Er soll 
dazu eine «tMtafch genaue Integer eingeben, die wir in der Varia 
bien POINT aufheben. Als nächstes wird - in Zeitig 3 - der Benut 
zer aufgefordert, den einzufügenden Text (maximal 10 Zeichen) 
einzugeben; wie au® ; bereits bei dem letzten Programm, wird die 
ser Text wieder durch das "#" abgeschlossen. Die Zeilen 4 bis 8 
Stellen eine Programmschleife dar, die den Einfügetext einliest 
und im Puffer EINFBUF zwischenspeichert. Wir folgen dabei den 
Verf ahrensschfiitfcöÖT die wisS; bereits äüs Abbildung 7-1 kennen. 
Nach Verlassen der Schleife steht der einizufügende Text fest, und 
der eigentliche :8iiifügevorgang kann beginnen. beschaffen wir 

uns zuerst im Array TEXT genügend Platzt .indem wir Teile dieses. 
Textes; 'Arbeitsspeicher verschieben . Die erste zu verschiebende 
Adresse ergibt sich aus der Anfangsadresse von TEXT, auf 'flie wir 
2 und den in der Variablen POINT gespeicherten Wert addieren. Die 
Addition der Zwe^/Iist nötig, weil die ersten beiden Bytes des 
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Arrays für ' --Öi® ZeichenzaJj|) im Array reserviert sind . Als -nächstes 
berechnen wir die Endadresse des %% verschiebenden Blockes . Dazu 
duplizieren wsijjj,: die soeben berechnete Anfangsadresse und, addieren, 
darauf die Anzahl Zeichen, die aus dem Puffer EINFBUF eingefügt 
werden sollen. Diese finden wir natürlich den ersten beiden 

Bytes von EINFBUF. Bezogen auf das Stack-Diagramm 7-6 haben wir 
Jetzt die Werte a A und a 2 auf den Stack gelegt. Es verbleibt nun 
die Gesamtzahl der zu verschiebenden Zeichen zu berechnen. 
Wir erhalten diese Zahl, indem wie rvbJi der Anzahl der in TEXT 
gespeicherten Zeichen die Anzahl der Zeichen abziehen, die vor 
der Einfügeposition in POINT stehen. Zeile- 10 der Abbildung 7-2 
•fül^r die nötigen Berechnungen aus und sorgt mittels <CMOVE da 
; 'tä$r, daß die Verschiebung statt! ittdet . 

Jetzt ist S Array TEXT eine Lücke entstanden, die groß genug 
ist, um den Einfügetext aufzunehmen. Beachten Sie, daß diese 
"Lücke" nicht leer ist, sondeffl'Vnach wie vor die alten Daten ent 
hält, die jedoch dupliziert wurden und so ohne Probleme über 
schrieben werden können, Uta nicht versehentlich unsere Verschie 
bedaten zu zerstören, haben IjEgr das Wort <CMOVE verwendet an 
stelle des einfachen CMOVE. 

Wir können jetzt die Daten aus un so retn Puffer in die Lücke im 
Array TEXT übertragen. Nach Ausführung der Zeilen 11 und 12, aber 
ehe das Wort CMOVE zur Ausführung gelangt, befinden sich folgende 
Informationen ä 1 s einfach genaue Integers auf dem Stack: Die 
Adresse des Puffers plus 2 als dritter Stack-Eintrag; dabei han 
dejtfc es sich um die Anfangsadresse des Öätenblookes >|p§r die nach 
folgende Verschiebeoperation. Die Zieladresse ist der zweite 
Stack^$jäträg; man erhält «säe aus der Anfangsadresse Vön TEXT, er 
höht um 2, sowie der Zahl, die in POINT gespeichert ist. An 
oberster Stack-Position fänden wie- .SChläeßl^lS die Anzahl, der 
Zeichen, die im Puffer EINFBUF gespeichert sind und die eingefügt 
werden sollen. Damit pgpj alles fSöjfr die Einfügeoperation $*$fberei 
tet, und wir können - entweder mit CMOVE oder mit CCMOVE - den 
Verschiebevorgang aus lösen. Welche der beiden Blockoperationen 
wir wählen,, äst in diesem Falle bedeutungslos, da s'äoh die Ver 
Schiebedaten nicht irrtümlich selbst überschreiben können. 

Nachdem der Verschiebevorgang abgeschlossen ist, müssen wir noch 
die Zeichehzahl aktualisieren, die wäf' am Anfang 'äiSh TEXT 

merken. Dies besorgt Zeile 13 des Programms. fälLe Ausgangszahl - 
also die Anzahl Zeichen vor dem Einf ügevorgang - wird um die An 
zahl der F, i rifügeze i eher, erhöht; letztere finden wir am Anfang des 
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Puffers EINFBUF . Wir haben in Zeile 13 das Wort +! angewendet und 
so die beiden Vorgänge Addieren und Speichern in möglichst knap 
per Form bewirkt . 

An dieser Steile ist einige Vorsicht geboten; Sie müssen aufpas 
sei§ji- 'daß Sie '-glicht versehentlich zu viele Zeichen einfügen. Dejt 
Array TEXT kann ja nur insgesamt 1024 Zeichen au f'nehrr.en . Wenn Sie 
nun versuchend i|.n TEXT neue Zeichen eift&cfSigeiti:,- so daß sich eine 
Gesamt zeSd&enzahl von mehr als 1024 ergibt, dann kann es seflf;;. 
daß Sie damit Teile des FORTH-Wörterbuches überschreiben. Even 
ifcöell müssen Sie dann Ihr FORTH-SysteBt neu starten und verlieren 
dabei alle Ihfis Daten. Sie können zwar stlt dem Programm von Ab 
bildung 7-1 nicht mehr als 1024 Zeichen in. einen Array schreiben. 
Nichts und niemand hindert Sie jedoch daran, durch wiederholte. 
Anwendung von EINFGN eine größere Anzahl an Zeichen- einzufügen 
und somit die Grenze voft j.024 zu überschreiten. Um dies zu ver 
hindern, sollte man das FORTH-Wort EINFGN um eine zusätzliche 
Überprüfung erweitern^Jjn der nachgesehen wird, ob die Sumne der 
eiöiufügenden Zeichen und der bereits vorhandene®' .-Zeichen den 
Wert ,1024 übersteigt. 

TYPE - Mit dem FORTH-Wort TYPE können Zeichenketten (Strings) 
ausgegeben werden, die im Speicher des Computers stehen. Ein 
Beispiel für die Anwendung von TYPE sieht folgendermaßen aus; 

TEXT 2 + TYPE 

Dies führt dazu, daß, beginnend bei der Adresse TEXT plus 2 , ;t|5 
Zeichen aus dem Array ausgegeben werden. TYPE besitzt folgende 
Stack-Relatiön : 


7 . 2 Weitere Wörter für die Zeicheneingabe 


Wif machen Sie jetzt m:; t einigen weiteren FORTH-Kommandos ver 
traut, die zur Eingabe von Zeichendaten dienen. Sie können sie ift> 
Ihre eigenen Definitionen mit einschließen. Das FORTH-System. 
selbst macht heftigen Gebrauch von diesen Wörtern, da mit ihrer 
ttilfe die Eingabe von Zeichen; in das System crgan i siert wird. 
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EXPECT - Mit Hilfe des FORTH-Wortes EXPECT kann man eins 
Folge von Zeichen (einen String) eingeben. Eine typische 
düng sieht etwa so aus: 

TEXT 10 EXPECT 

Dabei gehen w Lr davon aus, daß der Array TEXT vor der Aus 
von (7-11) vom Benutzer vereinbart worden ist. Wenn wir 
eingeben, dann unterbricht das System seine Arbeit und 
darauf, daß der Benutzer Zeichen eingibt. In diesem Fall 
10 Zeichen erwartet (englisch: "to expect") , da dies die 5 

war^ die das Wort EXPECT bei seine» Aufljä-t auf dem Stack vi 
Die Zeichen werden in den Array TEXT eingegeben, wobei n 
Startadresse von TEXT begonnen wird, da sich diese nach 
des Arraynamens auf dem Stack befindet. Das System fährt sc 
mit der Zeicheneingabe fort, bis der Benutzer entweder 10 
eingegeben oder bis er die Return-Taste gedrückt hat. jijl 
EXPECT hat folgende Stack-Relation: 


In Abbildung 7-3 sehen Sie ein einfaches Beispielprogram 

EXPECT einsetzt. In Zeile 1 vereinbaren wir einen Array, c 
Aufnahme von Zeichen bestimmt ist und den Namen LEITERS 
Darauf folgt, beginnend mit Zeile 2, die Definition des 

CHAR; in diesem Wort werden zuerst Mittels EXPECT 10 : 

(oder weniger,;. 'Je nach Benutzereingabe) im Array LETTERS 
speichert. Anschließend wird die Information wieder ausgs 
und zwar sowohl die eingegeben Zeichen als auch deren ASCII 
Dazu benutzen wir sowohl das Wort EMIT als auch das Punkt! 

do . Um sowohl das Zeichen als auch dessen ASCII-Code ausge 
« cönnen, müssen wfcl? ,zuvo>r jedes Zeiöhen iäeitels DOP dupliziere 

Demäß seiner Vereinbarung können wü*. i#'- dem Array LETTERS 
10 Zeichen speichern. Oft weisen wir zwei zusätzliche By 
Speicherplatz Hl einem Array affiS um darin als einfach gerjä 
fceger die Anzahl der Zeichen in einem Array zu speichern. 
FORTH-Systeme verfahren wiederum anders, in itifeen werden ei 
zwe|-, vSonderzeichen hinter 7die eingegebene Textinf.dDfta ti< 

schrieben, an denen das System das Ende e|i#fs Strings er 
3iese Endemarkieruncr wird automatisch von EXPECT anaefüat . 
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0 ( Einfaches Beispiel, für EXPECT ) 

1 VARIABLE LETTERS 8 ALLOT 

P : CHAR LETTERS 10 EXPECT CR 

3 10 S DO LETTERS I + C DUP EMIT 

4 LOOP ; 


ABBILDUNG 7-3: Anwendungsbeispiel für EXPECT 


Vergewissern Sie sich anhand Ihrer Sprachbeschreibung, welchen 
Konventionen Ihr EXPECT folgt, und vergessen Sie dann nicht,: 
entsprechend <*|Bssreichenden Speicherplatz für bereitzu 

stellen . 

WORDS, >IN, HERE und BLK - Wenn Sie von der Tastatur Ihre Befehle 
an das FORTH-System geben',,' dann erscheinen Ihre Eingaben dem 
System erst einmal als eine unzusammenhängende Folge von Zeichen. 
Um zu "verstehen", was Sie meinen, muß das System diesen Zeichen 
ström als erstes in sinnvolle Einheiten aufteilen, d.h., es muß 
erkennen, welche Ihrer Eingaben FORTH-Wörter sind und bei welchen 
es sich um Daten handelt, die auf den Stack gelegt werden sollen. 
Dazu sucht das Systeöj nach speziellen Begrenzungszeichen oder 
Trennzeichen, an denen es die Wortgrenzen erkennen kann. Das 
wichtigste 'Trennzeichen 'J,tx FORTH ist nditjliBi^ch das Leerzeichen, 
es gibt aber auch noch andere Trenner. Mit dem FORTH-Kommando 
WORD können Sie außerdem vereinbaren, welches Zeichen als Trenn 
Zeichen fungieren soll. WORD macht aber noch mehr: Wenn es geru 

fen wird, liest es so lange Zeichen v.on der Tastatur, bis das 
vereinbarte Trennzeichen auftaucht . Betrachten Sie dazu folgendes 
Beispiel : 


32 WORD 


(7-13).' 


WORD entfa*?i& die 32 Stack und merkt sich, daß es sich dabei 

nun um ein Trennzeichen handelt. Bei der 32 handelt es je 

doch um den ASCII-Code für ein Leerzeichen. Hätten wir anstelle 
von 32 den Wert 35 auf den Stack gelegt, dann wäre das "#" neues 
Trennzeichen in unserem Systefm 
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Nachdem es sich- nun das (eventuell neue) Trennzeichen gemerkt 
.-.at, liest WORD so lange Zeichen von der Tastatur, bis- es auf 
dieses Trennzeichen stößt. Die eingelesenen Zeichen werden ge 
speichert, .lind die Anfangsadresse des Speicherbereichs, in dem 
sie abgelegt wurden, wird von WORD auf den Stack gelegt. Zusatz 
lieh zu den eingegebenen Zeichen enthält das erste i^fte' att diese# 
Adresse eine Integer (die allerdings nur ein Byte langT'l^st) , wel 
■che die Anzahl der eingegebenen Zeichen angibt. Denken Sie daran, 
daß WORD nur so lange Ihre Eingabedaten von der Tastatur spei 
•chert, bis es a^tf das Trennzeichen stößt. Wenn Sie Ihre Eingaben 
jedoch SSt- einejf- Folge Vena- Tpaannzeichep einleitend dann werdet! 

•diese ignoriert. WORD beginnt also erst dann mit der Speicherung, 
“enn Sie ein Nicht-Trennzeichen von der Tastatur eingeben, und 

hört damit auf, wenn danach wieder ein Trennzeichen erscheint. 

Zum "Wortschatz" von FORTH-79 gehört auch das Wort HERE, welches 

die Adresse des nächsten freien Wörterbucheintrags liefert. Bei 
Ausführung von WORD wird der eingelesene String ab der Adresse 
"gespeichert!» • .die man über HERE erhält. (Hier können sidh einzelne 
FORTH-Systeme voneinander unterscheiden; Sie sollten die Einzel 
heiten in Ihrem Systemhandbuch überprüfen.) 

Tatsächlich ist die Arbeitsweise vpn WORD %©mplizierter , als wir 

es bisher dargestellt haben. Nehmen wir ah,, der Benutzer gibt 

eine Folge von Wörtern ein, wobei das Leerzeichen als Trenner 

■Cufi^iert . So, wie wir WORD bisher geschildert haben, würde es nur 
das erste Wort speichern, da der Tsl n l e s e p r o z. e ß beim : girsten JVw 
Zeichen abgebrochen wird. Es gibt jedoch ein weiteres FORTH-Wort, 
init dem diese Situation geändert werden kann. Es lautet >IN und 
frst der Name einer Vallablen FORTH-79. jßie unter >IN gespei 

cherte Zahl gibt an., wieviel Zeichen der Benutzereingabe FORTH 
überlesen soll, ehe es durch WORD die Eingabekette des Benutzers 
verarbeitet.- ;Falls wir in >IN beispielsweise den Wert 3 stehen 
haben, dann werden die ersten drei Zeichen, die der Benutzer auf 
■der Tastatur tippt, ignoriert, wenn wir WORD auf rufen. Die in >IN 
gespeicherte Zahl kar.n sich' zwischen 0 und 1023 bewegen. 

Wir müssen noch ein weiteres wichtiges FORTH-Wort besprechen. 

3isher sind wir davon ausgcqangen, daß die Eingaben, ah das System 

$rön der Tastatur kommen. Dies muß aber ägight so sein; genausogut 
können die Eingaben vh®; der Diskette stammen. Wenn also WORD ge 
^jpgCen ’wifcl/. müssen Sie zu&isst dem FORTH-Systenu’ .{reifcjjeilen, 

von welcher Quelle die Eingabedaten kommen. Diese Information 
wird in einer anderen Standardvariablen von FORTH gespeichert. 
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die den Namen BLK trägt. Falls die in BLK gespeicherte Zahl 
gleich 0 ist, dann geht FORTH davon äus, daß die Eingaben an das 
System von der Tastatur kommen. (Die Details von DiskctLenopora 
tionen werden wir erst ins nächsten Kapitel kennenlernen.) 


Ö (Einfaches Beispiel mit WORD) 

1 : SCAN 0 3I.K ! 5 >IN ! 32 WORD C@ CR 

2 1 + 1 DO HERE : - C§ EMIT LOOP 

3 CR CR QUIT ; 

4 

5 

ABBILDUNG 7-4: Ein Beispiel für die FORTH-Wörter WORD, >IN, HERE 

und BLK 


Am Beispiel von Abbildung 7—4 wird die Arbeitsweise der soeben 
vorgestellten FORTH-Wörter deiljftlcher . Das SÄ dem Beispiel defi 
nierte Wort mit dem Namen SCAN legt als erstes fest, daß die Ein 
gaben von des$. Tastatur kommen. Dies geschieht, itvdem wia? §M ; : der 
Variablen BLK eine 0 speichern. Als nächstes vereinbaren wif, daß 
WORD die nächsten -j|' . Zeichen der Benutzereingabe übergehen soll. 
Der Grund dafür wird gleich klar werden. Wir bewirken dies, indem 
wi t 3.jEi.;der Vasssiablen >IN eine 5 speichern. Dann rufen wir WORD, 
wobei wir durch eine auf den Stack gelegte 32 dafür sorgen, daij 
das Leerzeichen als Trennzeichen gilt. Nachdem WORD seine Aufgabe 
erledigt und die Eingabezeichen untersucht hat, findet sich die 
Adresse aus HERE auf dem Stack. Die Zahl, die an dieser Steile 
gespeichÖfeiS Wird, besorgen wir uns 'rtün mittels C . Sie entspricht 
der Anzahl der eingelesenen Zeichen. Auf diese Anzahl addieren 
wir 1 und haben somit alle Vorbedingungen für den Eintritt in 
eine Schleife erfüllt, die uns die eingelesenen Zeichen ausgeben 
soll. Beachten Sie, daß wir als Anfangsadresse dabei die Variable 
HERE angegeben haben. Wir beenden das Programm mit dem Wort QUIT. 
Würden wir diese Vorsichtsmaßnahme dritter l.as'sen, danrt würden alle 
SÖÄsIe öbcfe bei Ausführung von WORD eingegebenen Zeichen anschlie 
ßend als Eingaben in das FORTH-System interpretiert werden. 

Angenommen, wir laden den Block aus Abbildung 7-1 und tippen an 
schließend ein: 

SCAN WEISST DU WIEVIEL STERNLEIN STEHEN (RETURN) ~(7-14a) 
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Ze raufhiri bekommen wir folgendes auf dem Bildschärfe $jk sehen: 


WEISST 


(7 - 14b) 


3s»ie Sie wissen;- äst .j|4i der Variablen >IN eine 5 gespeichert; 
■Seshalb werden die ersten 5 Zeichen des Eingabestroms von SCAN 
i’wergangen. Dies bewirkt, daß das Wort SCAN selbst überlesen und 
erst das erste Wort des Satzes ausgegeben wird. Wenli; wir (7-1 4a) 
iingeben, dann sorgt der Befehl SCAN dafür, daß das Programm aus 
.Abbildung 7-4 aufgerufen wird. Zu diesem Zeitpunkt befindet sich 
aber 'Ijöcfe der ganze eingegebene Text einschließlich des Sch 1 üs 
selwortes SCAN im Eingabestrom. Deshalb vereinbaren wir in Zeile 
' unseres Programms, daß die ersten fünf Zeichen übergangen wer 
fen sollen. Würden wir dies unterlassen, dann würde das Programm 
aus Abbildung 7-4 stets' das Wort SCAN ausgeben und sich um 
weitere Benutzereingabenj. nicht kümmern. Hätten schließlich 

auf das QUIT in Zeile 3 verzichtet und gäben 7-14a ein, dann wür 
•fe das FORTH-System versuchen, das Wort DU als FORTH-Kommando zu 
Interpretieren und dabei vermutlich auf einen Fehler laufen. 

QUERY - Im vorigen Beispiel mußten wir den Wert von >IN auf 5 
setzetf^' d#Ät die Buchstaben des selbstdefinierten Wortes 

SCAN nicht versehentlich beim Aufruf dieses Wortes mit eingelesen 
•werden. Es gibt jedoch ein spezielles FORTH-Wort, dem dieses 

vermieden werden kann; es lautet QUERY. Wenn w i r dieses Wort 
rufen, dann werden die nächsten 80 von der Tastatur eingegebenen 

Zeichen im Eingabepuffer gespeichert. Iitf Puffer befinden sich 
somit nur die Zeichen, die nach Aufruf des Wortes QUERY eingege 
ben wurden, nicht aber die Zeichenfolge "QUERY" selbst. QUERY 
stellt den Einlesevorgang ein, wenn entweder 80 Zeichen vom Be 
nutzer getippt oder die Return-Taste gedrückt wurde. Falls sowohl 
.in BLK als auch in >IN eine 0 gespeichert ist, dann liest WORD 

seine Informationen aus dem Eingabepuffer. Wir brauchen also nur 
das Programm in 7-4 so abzuändern, daß wir die 5 in Zeile 2 durch 
eine 0 ersetzen, lifid vor der 32 in dieser Zeile das Wort QUERY 

einfügen. Jetzt befindet sich .Äch Auf^Säfl-. 'von SCAN das Wort 
"SCAN" selbst nicht |p| Eingabepuffer, wenn wir NORD rufen. Qäs 

Programm gibt also auch nach dieser Veränderung das korrekte 
Ergebnis aus. 
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7 . 3 Stringverarbeitung 


In diesem Abschnitt lernen wir einige FORTH-Wörter kennen, die 
bei der Bearbeiii£j|ßg von Strings sehr jpäJttlicii Sind. Wiederum 
befinden, sielt nicht alle diese Wörter FORTH-7 9-Standard, sie 
sind jedoch Teil von MMSFORT& h-ffid anderen FORTH-Systemen . Schis 
gen Sie Ihrem Handbuch nach, um herauszh^öiden, welche Befehle 

Ihr FORTH-System kennt und gegebenenfalls, welchen Namen die be 
treffenden Wörter dort haben. 


7.3.1 Stringkonstanten, Variable und Arrays 


Ebenso wie bei anderen Datentypen kann man auch Konstanten, Va 
riable und Arrays definieren, die zur Speicherung von Strings 
dienen. Bereits in Abschnitt 7-1 haben wir besprochen, wie man 
dies mit Wörtern aus dem "Wortschatz" von Standard-FORTH errei 
chen kann. Wir wenden uns iuih einigen nicht standa rdis I c rten Wör 
tern zu, die bequemer in der Handhabung sind. Zur Vereinbarung 
einer String-Konstante dient das Wort $CONSTANT. ip; vielen Pro 
gramm i ersprachen, einschließlich BASIC/ dient das Dollar-Zeichen 
zur Markierung von Stringausdrücken. Hier ein Beispiel für die 
Anwendung von $CONSTANT: 


$CQKSTANT EINE KONSTANTE" (7-15) 


Beachten Sie, daß in dieser Befehlsfolge nur ein einzelnes Anfüh 
i;|?^igs.zeichen vorkommt . In diesem Fall haben'wir eine Stringkon 
stante vereinbart, der wir den Namen EINE gegeben haben. Diese 
Konstante enthält den. String KONSTANTE. Im ersten Byte von EINE 
findet man eihS ein Byte lange ’Jlftteger, die die Länge des abge 
spe i cherten Strings angibt. Im Beispiel (7-15) ist die Länge des 
Datenbereichs für den Wörterbucheintrag EINE genau 9 Byte. Bei 
Ausführung von EINE wird die Adresse des ersten Bytes auf den 
Stack gelegt, ß’ieses Verfahren unterscheidet sich also von dem, 
das bei numerischen KonsiÄten ubiiri-ch ist. Zur Vereinbarung einer 
Stringvariablen dient entsprechend das Wort $VARIABLE . Ein Bei 
spiel für seinen Einsatz: 
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2Q $VARIABLE ABC 


(7-16) 


jür < diesem Fall vereinbaren wir einen Wörterbucheintrag mit dem 
i amen ABC« der für 21 Byte Platz hat. Bei Einrichtung der Varia 
bien werde# -alle diese Bytes ittifi dem Wert 0 besetzt. Auch hier, 
iient das erste Byte oftmals dazu, die Länge des Strings festzu- 
b. alten, der der Variablen ABC gespeichert . Dies geschieht 

edoch nicht automatisch. Der Programmierer muß selbst dafür sor 
geh;, daß die notwendigen Informationen festgehalten werden. Die, 
Sdack-Relatib« 'für $VARIABLE lautet: 


Stringvariable und Stringkonstanten werden in gleicher Weise 
verwendet. Im Unterschied zu einer Variablen wird bei einer 
Stringkonstante jedoch der Konsfeähtenwert zu dem Zeitpunkt be- 
Stjfiöt, ein dem die KanstÄtete vereinbart wird. Es wiä jedoch spä 
ter noch deutlich werden, daß wir - ebenso wie bei Stringvaria- 
olen - auch bei 5 1 r i. n q k o n s t a n t e r. den String mit, speziellen FORTH- 
■WörtefSÄ; lesen und verändern können. Auch dies unterscheidet sich 
von der Behandlung, die numerische Konstanten und Variable in 
FORTH erfahren. 

Schließlich gibt es noch ein Wort, mit dem mart .fn FORTH-Stringar- 
rays vereinbaren kann; es lautet $ARRAY. Aus Kapitel 7-1 wissen 
wir bereits, daß man Stringarrays auch mit ALLOT vereinbaren 
kann. Die Handhabung von $ARRAY ist jedoch bequemflr, allerdings 
ist dies kein Wort des FORTH-79-Standards . Hier elfr’ Anwendungs 
be : sp i e 1 : 


20. $ARRAY LEITERS (7-18) 


In diesem Beispiel haben wir einen Array mit dem Namen LEITERS 
vereinbart, der aus 11 'Elementen besteht. Jedes dieseri'täjp- Elemen 
te kann bis zu 21 Byte speichern. $ ARRAY hat die Stack-Relation 


(7-19) 
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Beachten Sie, daß n A + l gleich der Anzahl der Elemente äjjäji Ärray 
ist, während n A + l gleich der Anzahl Bytes ist.,. die in jeder" 
Arrayelemenfc gespeichert werden können (die Stringlänge) . Alle 
Arrayelemente werden bei Defidibiab des Arrays .Ääjt 0 vorbesetzt. 
Wenn wir die Adresse des ersten Bytes vom dritten String des 
Arrays LETTERS auf dem Stack haben wollen, dann geben wir ein;. 

3 LETTERS 

Auch zweidimensionale Stringarrays sind möglich; man vereinbart 
sie mit 2$ARRAY. Diese Vereinbarung muß folgende allgemeine Form 


Jfe n 2 n 3 2 $ARRAY TABELLE 


(7-20) 


Hier wird ein zweidimensionaler Array vereinbart, der n,+l Zeilen 
jiÄd n A +! Spalten hat. Jedes Element in dieser "Tabelle"' -ist sei 
nerseits ei n String, der maximal n^ B^jte lang so.1e ; kann . n. da ttß 
in diesem Fall den Wert 254 nicht übersteigen. Wir haben folgende 
Stack-Relation : 


Auch hier werden alle Arrayelemente mit dem Wert 0 vorbesetzt. Um 
die Adresse des Strings in Zeile 3 und Spalte 5 von TABELLE auf 
dem Stack zu erhalten, müssen wir eingeben: 

3 r | TABELLE 

Denken Sie daran, daß bei der Numerierung' von Zeilen und Spa ites. 
in einem Array mit Null begonnen wird. 


256 



7 Zeichen üfisf. Zeichenfolger 


7.3.2 Stringverarbeitung 


stellen als nächstes dar, wie raan Strings Speicher^ auslesen 
_ui manipulieren kann. Als erstes lernen wir das Wort $! kennen, 
— genommen, wir haben bereits Daten in einer Stringvariablen oder 
icrmgkonstanten mit dem Namen ABC und wollen jetzt, daß diese 
Lsren in eine andere Stringvariable dupliziert werden, welche den 
'•-ijoen TOP trägt. Dies erreichen wAl: mit folgender Wortfolge: 


ABC TOP $ ! 


(7-22) 


Eie Verfahren bei der Arbeit mit Strings unterscheiden sich von 
denen, die wi'Ü %on.- Zahlen her gewöhnt hind. Das kommt daher, weil 
es meistens sinnlos ist, einen ganzen String auf den Stack zu 
.egen. Falls der in der Variablen ABC länger als der ist, der? 
sich in TOP befindet, dann werden Teile des Wörterbuches über- 
achr leben . Dies müssen. Sie unbedingt vermeiden. ;£ißrf Ausgabe eines 
Strings berhitzen wir den Befehl $.. Wir können den ÄV-TOP gespei 
cherten String mit folgendem Befehl ausgeben: 


TOP $. 


(7-23) 


$. erwartet also die Adresse eines Strings auf dem Stack, weswe 
•gen seine Stack-Relation lautet: 


(7-24) 


Erinnern Sie sich daran, daß wir mit "a" in Stack-Relationen 
Adressen bezeichnen. Im Arbeitsspeicher des FORTH-Systems gibt es 
einen speziellen Speicherbereich, das Scratch pad (wörtlich etwa 
1 1 Schmierzettel**) , Hierbei handelt es sich um eine Gruppe von 
Speicherstellen, die zur temporären Zwischenspeicherung von 
St rl ngcatön. Und anderen J.n formati or.en dient. ()§|_e Anfangsadresse 
dieses Bereichs ist in der FORTH-79-Variablen PAD gespeichert. 
Bei wachsendem Wörterbuch ändert sich auch die Lage dieses Be 
reichs im Arbeitsspeicher. Die Ausführung des Wortes PAD 'fljhrt 
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■Gelegentlich ist es wünschenswert, daß ein Programm den Benutzei 
zur Eingabe eines Strings üpf fordert. fjO.es erreichen dem 

Wort IN$ . Bei Ausführung dieses Wortes halb das System an und 
bringt Fragezeichen auf den B i 1 dschirm . Der: frogrammbenutzer 

gibt dann einen String ein, welchen er durch RETURN abschließt. 
Dieser String wird ’Jsji. PAD abgelegt, wobei, „die Adresse PAD auf 

den Stack kommt. Denken Sie daran, daß es sich bei diesem Spei 
cherbereich nur um einen temporären Speicher handelt; Sie sollten 
so bald wie möglich die dort zw : schenqcspe i chorten Daten an eine 
andere Stelle bringen, da durch nachfolgende Programmschritte der 
"Schmierzettel" überschrieben werden kann. 

Gelegentlich wollen wir in einem Programm auf einzelne Zeichen Mt 
einem String zugreifen. Diese Notwendigkeit kann z.B. dann auf 
tauchen, wenn wir einen String in eine andere Variable übertragen 
und dabei -sichergehen wollen, daß W*ätj£ nicht versehentlich das 
Wörterbuch überschreiben,*' in diesem Fall müssen wir die Anzahl 
der zu kopierenden Zeichen beschränken. Dafür können mehrere Wör 
ter eingesetzt werden. Eines davon lautet LEFT$ und wird so ein 
gesetzt : 

ABC 10 LEFT$ 

Diese Wortfolge führt dazu, daß die Adresse von ABC und die ein 
fach genaue Integer 10 auf dem Stack stehen. LEFT$ kopiert dann 
die ersten 10 Zeichen des Strings ABC in den temporären Arbeits 
bereich und hinterläßt dessen Adresse, also den Wert von PAD. Wir 
haben folgende Stack-Relation: 


*S n - >a pad (7 - 28) 

Es gibt noch zwei weitere Wörter, die mit LEFT$ inhaltlich ver 
Wäliät sind; eines davon heißt RIGHT. Dieses funktioniert ähnllsti 
wie LEFT$ , überträgt jedoch die letzten jjjfc. sZö'ichen des Strings, ..Jil 
den Arbeitsbereich. Falls es nötig ist, Teile aus der Mitte eines 
Strings kopieren, verwendet man das Wort MID$ . Es KSit: folgende 
Stack-Relati#i& : 


a $' l n 2 


(7-29) 
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_.j^C diesem JP|(t'l werden n A Zeichen des Strings an der Adresse a A ia 
den Arbeitsberei^sft Überträger. . Der Kopiervorgang beginnt dabei., 
mit dem n A -ten Zeichen, also n A Zeichen vom Anfang des Strings 
weg. Die Wörter LEFT$, RIGHT$ und MID$ ändern an dem ursprüngli 
chen StriÄj ; nichts . 

Gelegentlich ist es wünschenswert, die Zeichenketten auszut.au 
sehen, die in zwei Stringvariablen abgespeichert sind. Dies be 
wirkt man mit dem Wort $XCG; Sie solltest hierbei allerdings astii; 
passen, damit Sie nicht einen String an einen dafür zu kleinen 
Speicherplatz bewegen. Seim Austauschen vöö Strings wird eben 
falls der temporäre Zwischenspeicher benutzt . Die Stack-Relathöä?' 
für $XCG lautet : 


(7-30) 


7.3.3 Stringvergleiche 


Strings können - ebenso wie andere Datentypen - .miteinander ver 
glichen werden. Da2^ ; -gibt es in FORTH spezielle Wörter. Mit die 
sen ist es unter anderem auch möglich, einen String zu durchsu 
chen, um herauszufinden, ob er einen bestimmten Teilstring ent 
hält. Man .möchte also herausfinden, ob eine bestimmte Zeichen 
folge Teil dieses Strings ist . Besonders bei Programmen, die mit 
Textverarbeitung tun haben, isf, dies eine. nützliche Anwendung. 

Eine solche Suche bewirkt man mit dem Wort INSTR. Hier oiji Anwen 
dungsbeispiel : 


ABS TOP INSTR (7-31 ) 


In diesem Fall wird, der String an der Adresse ABS durchsucht, 
wobei FORTH versucht herauszufinden, ob der in TOP gespeicherte 
String darihft-.enthalten ist. Wenn etwa der String in TOP das Wort 
BÜCH enthält und der Wert von ABS lautet DAS BUCR ;IST AUF DEM 
TISCH, dann hinterläßt das Wort INSTR nach seinem Aufruf auf dem 
Stack die Integer 4. Dies bedeutet, daß der gesuchte Teilstring 
an der vierten Position im Zielstring zu finden ist. Sollte sich 
im Ziel string kein Vorkommnis des Suchst r 1 nqs finden lassen, dann 
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: _sht INSTR den Wert j§ auf den Stack. Wir haben folgende Stack- 

-eLat|i#JI : 


a $i £ ”> n < 7 - 32 > 

: ist es erforderlich, eine Anzahl von Strings in alphabetische 

Reihenfolge zu bringen. Jedem String kann man einen numerischen 
"•ert zuordnea,- der der Position entspricht, die dieser String; 
einer sortierten Liste haben würde. So hat z.B. der String "AAA" 
einen kleineren numerischen Wert als "AAB" . Man sagt auch, daß 
£er erste StriSö in der Sqiltrierf olge vor dem zweiten MtiS®®. Ent 
sprechend ist der numerische Wert von "AECDEDE" kleiner als der 
von "ZXE" . Ebenso unterscheidet sich der Sortierwert (und der 
ASCII-Wert) von Kleinbuchstaben vor. dem der entsprechenden Groß 
i»achstaben. Zum Vergleichen zweier Strijjgs - wobei derer»: ijumeri 
sehe Werte für den Vergleich herangezogen werden - benutzt man 
fas Wort $ COMP ARE ; hier ein Beispiel für seine Anwendung: 


ABC TOP $ COMP ARE ( 7 - 33 ) 

Bei einem Aufruf von $COMPARE wird der numerische Wert des 
Strings, der an der Adresse ABC gespeichert dem vergli 

chen, den der String unto r der Adresse TOP . Die beiden Adres 
sen werden vom Stack entfernt, und - je nachdem, wie der Ver 
gleich aö#fällt - die Werte — 1 , 0 oder 1 werden 3 k den Stack 
gelegt. Die Zahl 0 signalisiert, daß die beiden gSfcrings gleich 
sind. -1 drückt aus, daß der erste Stri-hg (äS diesem Fall ABC) in 
der Sortierordnung voSÜ :i dem zweiten Stiihg (TOP) kommt. umge 

kehrten Fall legt $COMPARE den Wert 1 auf den Stack. Die Stack- 
Relation lautet: 


a $l a S2 -> n 

Als Beispiel für die Stning-Manipulation wollen wir Jiroflj ein 
FORTH-Programm schreiben, das eine Liste von Namen sortiert. Sie 
finden das Programm in Abbildung 7-5. Es ber.öt i qt. zwei Blöcke. 
Wir gehen davon aus, daß Sie diese beiden Blöcke geladen haben. 
Wir haben Kommentare; in das Programm eingestreut,, um Ihnen das 
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Verständnis seiner Arbeitsweise zu erleichtern. Wenden wir uns 
jetzt den jithzelhhiten dieses Programms zu. Es besteht aus insge 
samt drei benutzerdefinierten FORTH-Wörtern . Mit dem ersten, das 
wir ALPHAIN getätigt haben, geben die 'Selten ein. Das zweite 

Wort mit dem Namen ALPHAOUT besorgt die eigentliche Sortierarbeit 
und gibt dann das Ergebnis aüs . Das dritte Wort, ALPHA, #a|ft le 
digl-iöh- diese beiden Wörter auf. In der ersten Zeile des erste® 
Blockes definieren zuerst einen Stllfig-Array dem Name® 

NACHNAME. Er umfaßt 11' Zeilen, von denen jede 20 Byte lang sein 
kann. Wir definieren des weiteren eine 21 ß'yteviange Stringvaria 
bl® jjjSj dem Namen TEEM. Weiterhin beiJlfSslOft das Programm eine 
Stringkonstante, die den Namen Q trägt und aus einer Folge von 20 
Z's besteht. (Wir gehen davon aus, daß der Benutzer die zu sor 
’jlerenden Namen in Großbuchstaben eingibt.) Abschließend werden 
in Zeile 3 noch zwei Variablen mit dem Namen NUMB und NUMB1 ver 
einbärt, die zur Speicherung zweier einfach genauer Integers 
dienen . 

Das Eingabewort ALPHAIN beginnt in Zeile 4 des ersten Blockes. In 
den Zeilen 5*VSfe£K 7 wird der Array NACHNAME Initialisiert. In 
jedem String dieses Arrays speicheln: ;w|ki im ersten Byte die 

Stringlänge (20) . Die verbleibenden Stringelemente setzen wir auf 
0 . Dieser Schritt wäre unnötig, wen® das Programm, immer nur ein 
mal durchlaufen werden soll. ®b> diesem Fall set^- 'iFORTH ja äuto 
matisch den String-Array auf 0. Wir wollen das Wort jedoch mehr 
fach aufrufen; in diesem Fall befinden sich nach dem ersten 
(Durchgang i|i Array immer noch die alten Sortierdateh* die für ein 
korrektes Funktionieren des Programms dufegh eben diesen Tnitiäti. 
sierungsschritt erst entfernt werden müssen. Zeile 7 speichert im 
ersteh Byte des Strings TEMM den Wert 20, vermerkt also ebenfalls 
die Stringlänge an dieser Stelle. 

Die Dateneingabe wird ih den Zeilen 9 bis 13 besorgt. Dies ge 
schieht, indem das Programm vom Benutzer die Eingabe einer ein 
fach genauen Integer verlangt. Diese entspricht der Anzahl von 
Namen, die sortiert werden sollen. -Hier sollte der Benutzer kei. 
nen Wert angeben, der größer als ifF ist, (Genaugenommen könnten 
wir auch noch Zeit«' 0 unseres zweidimensionalen Arrays benutzen 
und dan® 11 Namen sortieren; wir verzichten hiei? Ijedoch darauf.) 
Sollten Sie eine längere Namenliste sortieren lassen wollen, dann 
müssen Sie in Zeile 1 anstelle der 10 den gewünschten Wert ein 
tragen. Die eigentlichen Sortierdaten werden in einer Schleife 
(Zeile 11 - 13) eingelesen hhd im Array NACHNAME gespeichert. 

Wir bedienen uns hierzu des Wortes EXPECT, da man mit diesem Wort 
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ö ( Sortierprogramm - Block 1 von 2 ) 

12010 $ARRAY NACHNAME 20 $VARIABLE TEMM 

2 $CONSTANT Q Z Z Z Z Z Z 7, 7. 7 . Z 7. Z 7. 7, 7, Z 7. 7. 7. 7.7" 

3 VARIABLE NUMB VARIABLE NUMB1 

4 : ALPHAIN (Variablen initialisieren und Daten eingeben) 

5 10 0 DO 20 I NACHNAME C! 

6 20 1 DO 0 J NACHNAME I + C! LOOP 

7 LOOP 20 TEMM C! 

8 (Anzahl der Naitien eingeben) 

9 CR. " WIE VIELE NAMEN SOLLEN SORTIERT WERDEN " #IN NUMB ! 

I 0 (Liste der Namen eingeben) 

II CR NUMB § 1+1 DO WIE LAUTET DER NAME NR. " I . 

J.- 2 CR 1 NACHNAME 1+ 20 EXPECT CR 

1 3 LOOP CR J§‘ 

14 

ip 


•'§£ (SöÄ4#hprograrmn - Block 2 von 2) 

1 : ALPHAOUT (Sort : era I gori Lhr.us) 

2 (TEMM auf 20 mal "Z" setzen) 

3 NUMB @ 1 + 1 DO Q TEMM $! 

4 (Innere Schleife initialisieren und Vergleich starten) 

5 NUMB 1 DO I NACHNAME TEMM $ COMP ARE 

6 (Namen finden) 

7 0< IF I NUMB1 ! I NACHNAME TEMM $! 

8 THEN LOOP 

9 (Namen ausgeben) 

10 CR NUMB1 § NACHNAME $, 

11 (Ausgegebene Namen l oeschen 1 ) 

12 Q NUMB1 @ LASTNAME $ ! 

13 LOOP ; 

14 

l® : ALPHA ALPHAIN ALPHAOUT ; 

ABBILDUNG 7-5: Ein Sortierprogramm 


die Anzahl der Eingabezeichen automatisch auf 20 begrenzen kann. 
Dazu muß dem Wort EXPECT allerdings der Wert 20 auf dem Stack be 
reitgestellt werden (Zeile 12) . Die auf den Stack gelegte Adresse 
ist NACHNAME+1 . Dadurch wird di# .erste in den einzelnen Strings 
gespeicherte ZahS|', .flicht verändert und behält den bei der Initi- 
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alisierung eingeschriebenen Wert 20 bei. In Zeile 13 endet die 
Deflation von ALPHAIN. 

Untersuchen w|hS: jetzt den zweiten Block, <§301 'der AbbiidWtfif, 7-11. 

Rio r .finctet der eigentliche So.rt iervorqanq statt. Wir bediene#- 
uns dabei des folgenden Verfahrens: Wir gehen durch die gesamte 
Liste der gaf -sortierende^. 1 .-Namen -Aiif suchen de#, - alphabetisch 
kleinsten Namen heraus . Spesen geben wir dann aus und löschen 
aus der Liste. Anschließend gehen wir erneut die ganze Liste 
durch, suchen wieder nach dem kleinsten Namen, der jedoch jetzt, 
bezogen auf die Gesamtliste, der zwo i uk leinste Name seih muß, da 
ja der kleinste gelöscht -*urde . jptjeser wird ebenfalls ausgegeben 
und gelöscht. Der Prozeß wird so lange wiederholt, bis alle Namen 
aus der Liste gelöscht sind. Um den kleinsten Namen in der Liste - 
zu 1 vfunden, vergleichen tt&Ku 'jeden (Eihfäfeag mit einem Vergleichs 
wert, der als erstes aus 20 Zs besteht. Ist der Listeneintrag 
kleiner als der Vergleichswert (und beim ersten Durchgang ist er 
dies mit Sicherheit, -immer) , dann wird de#,-' (Jistenwert zui® neuen 
Vergleichswert, hfld der zweite Listen-eintrag wird Äffe dem neuen. 
Vergleichswert verq 1 : chcn. Ist er k 1 e.i ner> dann ersetzt er den 
Vergleichswert, und wir gehen auf diese Art und Weise die gesamt#, 
Liste durch. Dadurch ist garantiert, daß wir das jeweils alphabe 
tisch kleinste in der Liste enthaltene Element finden. 

Das Wort, das all diese Operationen bewirkt, heißt ALPHAOUT und 
beginnt in Zeile 1. Es arbeitet mit zwei ineinander verschachtel 
ten Schleifen. Die erste Schleife geht so oft durch die Liste, 
wie Einträge -in ihr enthalten sind. Stile zweite innere Schleife 
sucht bei jedem Durchgang das aktuelle kleinste Element heraus, 
gibt es aus und löscht es. Die äußere Schleife hat als Anfangs 
wert 1 und als Testwert 1 plus die Anzahl der Namen im Array. In 
Zeile 3 setzen wir,- j-iLft der Variablen TEMM den anfänglichen Ver 
gleichswert, der aus 20 Zs besteht und garantiert am Ende 

einer alphabetisch sortierten Liste zu stehen kommt. Jetzt geht 
es in die innere Schleife. TEMM wird mit jedem Nameneintrag in 
delf (Liste verglichen; falls der Listeneintrag kleiner als der 
Vergleichswert ist, dann ersetzt; er den TEMM gespeicherten 

Wert. Außerdem merken wir uns noch in der Variablen NUMB1, an 
welcher Position im Array der String zu finden ist, der als letz 
ter den Ve rq 1 e i chswet.-tl in TEMM ersetzt hat . Nach einem voll 
ständigen Durchgang durcät die innerste Schleife enthaltf folglich, 
NUMB1 die Zeilennummer des alphabetisch kleinsten Namens in NACH 
NAME. Diesen Namen geben wir in Zeile 10 aus. Als nächstes wird 
der so gefundene Wert in Zeile 12 gelöscht, indem wir lauter Zs 
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in den String schreiben und ihn so an das Ende des Alphabets 
bringen. Es: 'jEol'tjt ein neuer Durchgang durch die äußerste Schlei 
fe. Der im letzten Durchgang gefundene Name - der kleinste in der 
Gesamtliste - kommt jetzt- flieht mehr als Kandidat ''%iß fprage, da eil'- 
durch eine Folge von Zs ersetzt und somit an das Ende der alpha 
betischen Japste gebracht worden ist. Wenn ■Wife; jetzt zum zweiten 
••itj die innerste Schleife eintreten, findet wir sstaSls. de® 1 
zweiten Namen in der alphabetischen Reihenfolge (bezogen a.^0. die 
Gesamtliste) . Das Sortierw.ort ALPHAOUT endet Zeile 13. 

Ganz im Sinne der strukturierten Programmierung findet sich in 
Zeile 14 das Wort ALPHA, das lediglich die beiden Hilfswörter 

ALPHAIN und ALPHAOUT auf ruft. 


7.3.4 Weitere Stringfunktionen 


Manchmal werden St^äJägs — vor allen Dingen Vöft Ende her - mit 

Leerzeichen aufgefüllt. Beispielsweise könnten wir für einen 
String 64 Byte an Platz bereitgestellt haben, von denen aber nur 
£§ mit Zeichen beschrieben sind. Der verbleibende Pla|j|sj wird jÄäjfc 
Leerzeichen aufgefüllt . Dies kann zu gewissen Problemen führen. 
Kenn wir z.B. den String auf einem Drucker ausgeben wollen, so 

sollten die überflüssigen nachlaufenden Leerzeichen nicht mit 
ausge"druckt" werden. Sn FORTH ist es ja üblich, im ersten Byte 

eines Strings die Anzahl der darin gespeicherten Zeichen zu 
vermerken. Es wäre - artinachenswe^fe diese Zahl Zumindest zeit 

weilig durch eine zu ersetzen, die die Anzahl der tatsächlich 
gespeicherten Zeichen ohne nachlaufende Leerzeichen angibt. Diese 
Zahl könnte man dafBfc verwenden, ijiS Druckausgaberi zu steuern. Das 
FORTH-Wo.rt -TRAILING tut genau das Gewünschte: Es legt eine Zahl 

auf den Stack, die gleich der Stringlänge abzüglich nachlaufender 
Leerzeichen ist. Hier ein Beispiel: 


ABC ABC -TRAILING (7-35) 


Bei dem Aufruf von -TRAILING wird die erste Adresse von ABC vom 
Stack entfernt und die berichtigte Zeichehzahl des Sfr&aijs als 
einfach genaue Integer den Stack gelegt. Jetzt enthält der 

Stack also die Anfangsadresse ven. ABC und die "Nettozeichenzahl". 
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Letztere ist an oberster Stack-Posi 5 ^Äpn . Beachten Sie, daß -TRAI- 
LING am erste Byte von ABC keine Veränderungen vornimmt . 

Es auch mögiiiäh, r.ach i aufor.de Leerzeichen aus einem String zu 

löschen. Dazu bedient man sich des Wortes $-TB. Wenn wir z.B. 
folgende Wörter ausführen: 

ABC $— TB 

dann wird das erste in ABC gespeicherte Byte so verändert, daß es 
die tatsächliche Zeichenzahl in ABC ohne nachlaufende Leerzeichen 
wiedergibt . 


7.3.5 Numerische Stringinformationen 


Es gibt in FORTH auch Wörter, mit denen man sich numerische In 
förmatiönen über Sfejtfcngs beschaffen kann. Diese wollen wir jetzt 
besprechen. Mit dem Wort LEN erfährt man die Länge eines Strings. 
Durch Ausführung von 


ABC LEN 


(7-36) 


wird die Adresse von ABC vom Stack er.t fernt und durch eine ein 
fach genaue Integer ersetzt, die der Anzahl der Zeichens ,3,ft dem 
String entspricht. 

Das FORTH-Wort ASC liefert den ASCII-Code des ersten Zeichens’' tfe 
einem String . Das Beispiel 


ABC ASC* (7-37) 


sorgt da für;,; ^ daß die Adresse voii 
ihrer Stelle dort der ASCII-Code 
abgelegt wird. Die beiden Wörter 
Relation 


ABC vom Stack entfern# und an 
des ersten Zeichens) im String 
LEN und ASC haben die Stack- 
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(7-38) 


Das FORTH-Wort CHR$ erwartet eine einfach genaue Integer- dem 

Stack (diese muß einem gültigen ASCII-Code entsprechen) und er 
setzt diese dgr.ch die entsprechende 7,e : cher.da rsto 1 l ung im tempo 
raren Arbeitsbereich. Hin auf das Ergebnis zugreifen zu können, 
legt CHR$ die Adresse dieses Arbeitsbereiches (PAD) als Ergebnis 
auf den Stack. Wir haben folgende Stack-Relation: 


(7-40) 


Oft; ist es es^jrderli'eb^ in Shr, ihgdarstellung gespeicherte Zahlen 
in ihre numerischen Entsprechungen umzuwandeln. Ein String, der 
aus lauter Ziffern besteht, stellt zwar - für den Menschen - eine 
Zahl dar, der Computer kann jedoch damit nicht rechnen. Dazu mu| 
der String .zuvor umgewandelt werden, was das FORTH-Wort VAL be 
sorgt . Dieses wandelt eine als String gegebene. Zahl in die ent 
sprechende einfach genaue Integer um. Wenn also beispielsweise in 
ABC der StSjü.'fcg "123" gespeichert ist, -äÄrin. haben wir hach Ausfüh 


ABC VAL 

auf dem Stack die einfach genaue Integer 123 liegen. ; ß;|e Stack- 
Ro : atio.g lautet: 


7 . 4 Übungsaufgaben 

Ke nn in den folgenden Aufgaben von Ihnen verlangt wird, FORTH- 
Programme sfijiäJ schreiben, dann überpriifen 'SS© diese 3 tn besten an 
Ihrem Computer. Halten Sie die einzelnen FORTH-Wörter so talf#; wie 
möglich; versuchen Sie mode 1 an (zt- Programmierer'. . 
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7-1 Was ist der Unterschied zwischen einem Zeichen und einem 
String? 

7-2 Vergleichen Sie die FORTH-Wörter C! und C@ mit ! und 

7-3 Richten Sie zwei Arrays ein. Speichern Sie im ersten Inte- 
gerst und dup 1 izi.orer. Sie diese mittels CMOVE in einen zwei 
ten Array. Dazu .muß der zweite Array natürlidfe: mindestens so 
groß wie der erste Sein . 

7-4 Wiederholen Sie Aufgabe 7-3 unter Verwendung von MOVE. 

7-5 Wartspii ikann man in Aufgabe 7-3 sowohl mit CMOVE als auch mit 
< CMOVE arbeiten? 

7-6 Schreiben Sie ein FORTH-Wort, das Zeichen von der Tastatur 
einliest und ihren ASCII-Code auf dem B i 1 ds eis ausgibt. 

Das Programm sollte durch Eingabe eines Prozentzeichens be 
endet werden. 

7-7 Schreiben Sie ein Programm, mit dem Sie Text eingeben und in 
einen Array speichern können. Lassen Sie: sich dann Ihre Ein 
gäbe satzweise ausgeben. Nach Ausgabe eines Satzes sollte 
das Programm sö lange warten, bis Sie einen neuen eingeben. 

7-8 Schreiben Sie das Programm der Abbildung 7-1 neu, so daß Sie 
Zeichen im gespeicherten Text verändern können. 

7-9 Schreiben Sie das Programm der Abbildung 7-1 neu, so daß Sie 
Zeichen aus dem Text löschen können. 

7-10 Schreiben Sie das Programm der Abbildttpf 7-2 :|ieu, so daß 
nicht zu viele Zeichen in den Array TEXT mitauf genommen wer 
den können. 

7-11 Schreiben Sie das Programm i®' Abbildung 7-1,.,'iieu, so daß es 
mit dem FORTH-Wort EXPECT arbeitet . Beenden Sie Ihre Einga 
ben durch Drücken der Return-Taste. 

7-12 Schreiben Sie mittels WORD ein FORTH-Progpalnm, das eittöh 
String durchgeht und das erste Wort darin ausgibt. Dann hält 
das Programm an und wartet so lange, bis Sie ein beliebiges 
Zeichen eingeben, woraufhin das nächste Wort ausgegeber. 


268 



7 Zeichen und Zeichenfolge! 


wird. Dieser Prozeß soll so lange fortgesetzt werden, bis 
alle Wörter im St ring ausgegeben hipd. 

7-13 Wiederholen Sie Aufgabe ■7-12, wobei Sie diesmal mit dem 
Trennzeichen "#" arbeiten. 

7-14 Was ist der Unterschied zwischen Shhingkonstapten u‘nd ; nume 
rischen Konstanten? 

7-15 Ändern Sie das Programm der Abbildung 7-1 so, daß es mit den 
Wörtern aus Abschnitt 7-3 arbeitet. 

7-16 Wiederholen Sie Aufgabe 7-8 mit den Wörtern aus Abschnitt 7- 


7-17 Wiederholen Sie Aufgabe 7-9 mit den Wörtern aus Absc$$$jj& 7- 


7-18 Wiederholen Sie Aufgabe 7-jjp den Wörtern aus Absehhijii 

7 - 3 , 

7-19 Ändern Sie das Programm aus der Abbildung 7-5 so, daß der 
Originalarray erhalten bleibt. 

7-2C Wiederholen iSie die Aufgabe 6-16, wobei diesmal der Ve rkäe 
fername mitauf genommen werden soll. Setzen Sie hier jedoch 
nicht die Wörter aus Abschnitt 7-3 ein. 

7— Wiederholen Sie Aufgabe 7-26 jfti'it den Wörtern aus Abschnitt 
7-3. 

7-22 Wiederholen; |fie Aufgabe 7-21, lassen Sie sich diesmal jedoch 
die Werte nsöh den Verkäufernamen alphabetisch s»oirüi'e*''fc. aus 
geben . 

7-23 Erörtern Sie die Arbeitsweise von $+. 

7—24 WaÄSi- sollten Sie nicht über längere Zeit^- Baten im temporä 
ren Arbeitsspeicher Zwischenspeichern? 

7-25 Ändern _J»ie das P rogbamm der Abbildung; 7-5 so ab, daß nur die 
ersten vier Zeichen eines jeden Namens nftS*;' den Vergleich 
herangezogen werden. 
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7-2 6 Wiederholen Sie das Programm der Abbildung 7-1 so, daß Sie 
die ge spe i etoerfcett BStesÄ naeh einem bestimmten ‘•'^eilstnaite 
durchsuchen können. 

7-27 Wiederholen Sie Aufgabe 7-26 ohne das FORTH-Wort INSTR. 
Min weis : schreiben Sie Ihr eigenes Wort, das .<jiese Funktion 

'erledigt . 

7-28 Vergleichen Sie die Wörter -TRAILING und $-TB. 

7-29 Schreiben Sie ein Programm, das zwei als Strings gespeicher 
te Zahlen addiert. 
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ta diesem Kapitel gehen wir die iy?IiJ&ipien der jSisketten-Ein- und 
-Ausgabe durch. Einige jilft cärrtät i. oilön darüber haben schon ifn 

Kapitel 1 besprochen; hier haben jSfa.e erfahren, wie Sie Ihre Pro 
tgramme auf Diskette speichern und später laufen lassen können, 
lieses Thema wollen sa.»J vorliegenden Kapitel noch einmal auf 

greifen. Darüber hinaus beschäftigen wir uns mit der wichtigen 
"rage der Datenorganisation auf: Disketten. Viele der dabei behan 
«delten Themen hängen eng miteinander zusammen. Etliche Techniken 
zum Speichern von Programmen können auch für die Datenspeicherung 
eingesetzt werden. Einige Details, die wir hier darstellen, kön 
nen von System zu System etwas untcrsch : ed I i ch ausf allen. 


8 . 1 Prinzipien der Datenspeicherung auf Diskette 


Dieses Kapitel hat zum Ziel, die in Kapitel 1-4 eingeführten 
Koiintn l.sso über die Diskettenspeicherung zu er^eitÖiÄl; 'WjCfc* ;äsu ver 
tiefen. Deshalb wiederholen wir etwas von dem Material, das wir 
im ersten Kapitel bereits eingeführt haben. 

Peine FORTH-Systeme werden mit einem eigenen Betriebssystem aus 
'^geliefert. Verglichen mit anderen Betriebssystemen sind diese je 
-doch sehr einfach strukhpfeiert . Ein Vorteil der ausschließlichen 
Arbeit' ito FÖRTH besteht jedoch darifc,; daß Sie -Rieses einfache Be 
.ijjsiebssystem leicht modifizieren und Ihren persönlichen Zweckeijr 
anpassen können. So verwalten die meisten Betriebssysteme Disket 
toninha • tsve rzei.chrri sse Ä||' einer äußerst komplexen Struktur; 
Vergleich. . dazu ist das vom. FORTH-Betriebssystem verwaltete tih 
ha J tsve rze | Chnl s Rudimentär. Sie können es als Benutzer jedoch 
leicht modifizieren und Ihren eigenen Bedürfnissen anpassen. An 
dere FORTH-Systeme verwalten die benötigten Informationen zwar im 
Inhaltsverzeichnis, tun dies jedoch nicht in einer Ihnen genehmen 
Form; $ach. diese Systeme können meistens: AaCh den BenutZ'etKiilh 
sehen modifiziert werden. Wieder andere FORTH-Systeme verwenden 
das eigentliche Betriebssystem des Computers, enthalten aber ihre 
eigenen Kommandos für Disketten-Ein- und -Ausgabe. 

Um die nachfolgenden Erörterungen besser verstehen $$£ können, 
wollen wir erst einmal darstellen, wie Programme auf Disketten 
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gespeichert werden, wfcäf. Sie bereits Kapitel 1-4 wissen, wer 

deft die meistjBiS. FORTH-Programme einem FORTH-Edit'or eingetippt 

und ansdhfießend ajöf Diskette gespeichert. Das FORTH-System ar 
beitet dabei mit sog. Datenblöcken, von denen jeder genau 1024 
3yte fassen kann. (Genaugenommen kann diese Zahl von System zik- 
System variieren; bei r '3|&24 handelt es /sliti jedoch um einen typi 
sehen Wert.) Stellen Sie Sich jetzt einmal vor. Sie geben ein 
Programm mit Ihrem Editor ein. Die Zeichen, die Sie auf Ihrer 
Tastatur tippen, werden . 'Sticht direkt 4M? Diskette gespeichert, 
sondejäplii in o i nerr. BpezdejJr) daf$lä|' reservierten Bereich Arbeits 
Speicher abgelegt. Diesen Bereich bezeichnet man als Blockpuf fei» 
Wie Sie wissen, ist diÄ ein Speicherbereich, der für die 

tempo rä re Speicherung von Daten Vorgesehen ist . In FORTH ist der 
PuffdrbereiiSi- seinerseits wiedeft Blöcke untecteiltj; die der 

Blockgröße auf Diskette - in unserem Beispiel 1024 - entsprechen. 
Blöcke aus dem Arbeitsspeicherpuffer können auch auf Diskette ge 
speichert werden. Man spricht dann vph Blskettenblöcken . Ihr 
FORTH-System reserviert in der Regel eine ganze Anzahl solche# 
Blockpuffer im Arbeitsspeicher. Jeder von der Diskette geladene- 
oder auf!’ Ifjiskette zu schreibende Block wird ir, einem Puffer ab 
gelegt. Bef. einigen Systemen ist die Anzahl der Söffer, festge 
legt, bei anderen kann sie variieren, Sehen Sie also in Ihrem 
Handböfeli. nach, um die Usancen Ihres Systems, zu -erfahren. 

Sie haben also nun ein Programm eingegeben und in einem Blockpuf 
fer gespeichert. Die Meisten Editoren verfügen über Kommandos, 
■j0t- denen Sie den Pufferblock map|l$ieren können, so daß er bei der 
nächsten Äktuftllsierungsoperatign ,ay£ ‘jfSJ.skette gespeichert wird; 
/meistens bedient man sich dazu des FORTH-Wortes UPDATE. Gelegent 
lieh arbeiten Sie mit langen Programmen, die nicht in einem ein 
zigen Block Platz finden. Es kann sogar sein, daß IPlif: Programm 
mehr Blöcke belegt, als im Pufferbereich reserviert sind. Der 

/Einfachheit halber wollen wir- davon äusgehen, daß dieses hypothe 
‘t’i.sche Programm in drei Tjlskettenblöcke gespeichert Ihr 

FORTH-System im Arbeitsspeicher jedoch nur zwei /Pufferblöcke be 
reitstellt. Zur Bearbeitung von drei Blöcke ist es nötig, einen 
der Speicherblöcke überschreiben. Wejsft' Sie einen Pufferblock 

mittels UPDATE markieren und nachfolgend versuchen, diesen zif. 

übersdiji eiben, dann wird der Block automatisd|i äiif die Diskette 
zälrückgeschrieben, ehe der Inhaljfe; /uberscÄfcieben werden kann. Bö? 
bedeutet, daß das FORTH-System Blöcke schüfest, die zur Aktua^. 
sieru-ng ••wurden. (Vergewissern Sie sich, anhand Ihres 

FORTH-Handbuches, daß dies ij% ihrem System auch wi-rkif'öh so ist.) 
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Wie wir gesehen haben, können Sie Ihr eingegebenes Material mit 
tels UPDATE markieren und so vor Verlust schützen. Auch we^ - Sie 
den w&Bgkm versehene l.'i'ch ver’ assen, werden die markierten Blök- 
ke auf Diskette gespeichert. Darüber hinaus erlauben viele Sy 
steme dem Benütze r auch, den Edlitäfer ohne S i che rang zu verlassen, 
indem etwa die BREAK-Taste gedrückt wird. 

Wir können auch selbst dafür sorgen, daß in Blockpuffern enthal 
tenes Material auf Diskette geschrieben wird. Ehe wir das Wort 
betrachten,- dem das bewirkt, wollen wir einige De 

tails des Ediervorgangs untersuchen. Die ‘Blöcke auf einer Dis 
kette sind durchnumeriert. (Die Methode, nach der diese Numerie 
rung geschieht, wollen irill noch später besprechen.) Sie müssen 
dem Editor beim Aufruf die Nummer des Blockeft- \l|i|!il;eilen:>: die er 

bearbeiten sollt,;. In der Regel ruft man den Editor über das FORTH- 
Wort EDIT auf. Zur Bearbeitung des Blockes 123 müssen Sie also 
eingeben : 


.123 EB|t : (RETURN) (8-1) 

EDIT entfeint: also eine ,l|fteger sraffi .StäCk ößd liest den entspre 
chenden Blodk von der Diskette 1®'- - einen Pufcfigirblock . Anschließend 
befinden Sie sich im Editor und können diesen Block mit den ent 
sprechenden Kommandos bearbeiten. EDIT hat die Stack-Relätlöti 


Eine spezielle FORTH-Variable üp|Lt dem Namen SCR speichert stets 
die Nummer des Puf Ostblockes, der gerade bearbeitet wird. Weiter 
Sifh merkt Sich das System die Nummer desiifliskettenblockes, der? 
die Daten enthält, die im in Arbeit befindlichen Pufferblock ge 
speichelt sind. Beachten Sie, daß .zur Speicherung dieses Wertes 
SCR nicht herangezogen werden kann, da Sie ja mit mehreren Blök- 
ken gleichzeitig Ulbeiteh können. Die in SCR enthaltene Zahl ist 
stets die Bloöihummer des letzten bearbeiteten Blockes. AngenöA 
men. Sie haben einen oder mehrere Blöcke bearbeitet und für die 
Aktualisierung markiert. Wenn Sie jetzt das FORTH-Kommando SAVE 
BUFFERS eingeben, dann wird jeder markierte Speicherpuffer an diö- 
passende Stelle auf der Diskette gesichert. Viele FORTH-Systeme 
benutzen auch anstelle von SAVE-BUFFERS das Kommando FLUSH. 
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Gelegentlich arbeiten Sie mit einem im Teststadium befindlichen 
Programm und wollen nicht, daß die gerade im Blockpuffer befind 
liehe Version die auf der Diskette gespeicherte Version über 
schreibt. Dabei ist zu beachte^* daß das Zurückschreiben unbe 
nutztet Blöcke vom FORTH-System manchmal automatisch ausgeführt 
wird. Um so etwas zu verhindern, können Sie mit dem Wort EMPTY- 
BUFFERS einen Puffer vor dem Zurückschre : ber. ättj die Diskette be 
wahren. Die Ausführung von EMPTY-BUFFERS sorgt nämlich dafür, daß 
die Aktualisierungsmarken von allen Speicherpuffern entfernt wer 
den. EMPTY-BUFFERS ändert ftichts an dem Material, das SSS den 
BlockpuffO-fSö gespeichert ist. Sie können dieses also weitefJätil. 
mit dem Editor bearbeiten. Wenn Sie es wollen, können Sie dann 
ohne weitere^ jwjjs Anschlüß daran einen Ijäjrfer wieder mittels 
UPDATE markieren: und so dafür sorgen;*! daß er bei der nächsten 
Aktualisierung berücksichtigt wird. Denken Sie jedoch daran, daß 
UPDATE stets nur den Block markiert, der als letzter in Arbeit 
befindlich war. 

Beim Edieren ist es gelegentlich erforderlich, sich das Wort 
anzuschauen, das man gerade bearbeitet . Zwei FORTH-Wörter Ä5jinei>. 
dazjH.-. eingesetzt werden. Eines davon lautet;. |jj. Um es auszuführen 
geben Sie einfach ein: 


L (RETURN) (8-3) 

Der aktuelle - also def* dessen Nummer: ,£Ji SCR gespeichert 

ist - wird dänö; jJSäÄ dem Bildschirm ausgegeben. Um auch .noch zu 
sätzli#» eine£$|§§tgÖkausgabe zu erreichen, verwenden Sie das Wort 
PCRT. Mit L können S ip jedoch nur den aktuellen Block auf listen. 
Wenn Sie einen anderen a .1 s den gerade Arbeit befindlichen 

Block sehen wollen, dann müssen Sie das Kommando LIST geben. Um 
den B 1 ock v 12.3 aufzulisten, müssen Sie also eingeben: 

123' LIST (RETURN) (8-4) 


Da rauf h i r. wird die Zahl 123 vom Stack entfernt und (fit':. SCR gespei 
chert . Anschließend wird der betreffende Block ausgegeben. Die 
Stack-Relation für LIST finden Sie ebenfalls (8-2) . 
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Wenn SCR söwieso schon dem äfäiöfrtigen Wert enthält, dann brauchen. 
Sie nicht das Wort EDIT einzugeben. Im MMSFORTH reicht es, das 
Kommando E zu tippen. Dieses bewirkt, daß der Block bearbeitet 
wird, dessen Nummer in SCR gespeichert ist. 

Jtfun ein paar Wörter Compilierung von FORTH-Programmen . Dieser 

Vorgang muß stattfinden, ehe Sie ein Programm ausführen können. 
"Compilieren" bedeutet, daß unter anderem Wörterbucheinträge für 
Wörter und Variable und Verweise ateß den Maschinencode angelegt 
werden, der die entsprechenden Operationen auslöst. Zum Compilie 
ren eines Blockes geben Sie das FORTH-Kommando LOAD. Daraufhin 
wird der Block geladen, K«d alle darin enthaltenen Wörter werderf; 
ausgeführt. Um das Programm zu compilieren, das in Block 123 ge 
spe : chert ist.-, müssen Sie also eintippen: 


123 LOAD (RETURN) (8-5) 

In diesem Fall wird die Zahl 123 vom Stack entfernt und der so 
angegebene Block geladen. Sind in dem Block Definitionen mittels 
: und ; enthalten, so werden die entsprechenden Wörter compi— 

• : ert; direkt ausführbare Anweisungen wie etwa 

VARIABLE ABC 

werden hingegen sofort ausgeführt. Die Relation (8-2) gilt eben 
falls ;ffir LOAD. 

Gelegent'iiöh ist es nötig, mehrere Blöcke afeji eimteal zju laden. ,ijfi 
diesem Fall können Sie mit dem MMSFORTH-Kommando LOADS arbeiten. 
Dieses Wort ist kein Teil des FORTH-7 9-Standards . Um Block 123 
und die nachfolgenden beiden Blöcke zu laden, müssen Sie einge 


123 3 LOADS (RETURN) 


(8-6) 


Bei LOADS lautet die Stack-Relation folgenden 
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In einigen FORTH-Systemen ist LOADS anders cefin : e rt und funkt i o 
niert entsprechend anders. Überprüfen Sie deshalb vor he r di o In 
JSjsrmationen in Ärem FORTH-Handbuch. 

Eine andere Methode zum Laden mehrerer Blöcke besteht darin, als 
lejjäpfSe Anweisung: :i.y> einem Block das FORTH-Kommando aufzü-aehmen, 
das den nächsten Block lädt. Wenn nun der erste Block geladen 
wird, dann wird diese Anweisung ausgeführt und sorgt dafüfe daß 
auch der nächste Block nachgeladen ist. Zum Laden der beiden 
Blöcke 123 und 124 nehmen Sie also in Ihren Block 123 als letzte 
Anweisung auf: 

124 LOAD 

Wenn Sie jetzt den Block 123 laden, dann hat; dies zur Folge, daß 
auch Block 1.24 automatisch' tiachgeladen wird. A| csen Prozeß kann 
man wiederholen und so eine beliebige Anzahl von Blöcken mitein 
ander verketten. Wenn sich ein einzelnes FORTH-Wort allerdings 
über mehr als einen Block erstreckt, dann ist dieses Verfahren 
nisht anwendbar. Die einfachste Lösung jSShs- dieses Problem besteht 
darin, kürzere Wörter zu schreiben, die in einem Block Platz fin 
den. Strukturieren Sie Ihr Problem neu, und schreiben Sie kurze 
FORTH-Wörter, die ihrerseits andere Wörter rufen. 

Die meisten FORTH-Systeme verwalten keine Inhaltsverzeichnisse 
für Disketten. In manchem System findet sich jedoch ein Wort, mit 
dem man herausfinden kann, welche Information in den einzelnen 
Blöcken gespeichert sind; es lautet INDEX. Bier ein Beispiel 'llift 
seine Anwendung: 


50 20 INDEX (RETURN) (8-8) 

Damit sorgen wir dafür, daß jeweils die erste Zeile von 20 Blök- 
keft .aufgelistet jäXr-ci? wobei dieser Vorgang Block 50 beginnt. 

Da es guter Programmierstil ist, in jedem Block am Anfang einen 
Kommentar zu schreiben, der die Funktion der darfäi enthaltenen 
Anweisungen schildert, kann man JNDEX Aufschrift über die auf 

der Diskette gespeicherten Blöcke erhalten. Außerdem können Sie: 
so ausfitttfig machen, welche Biskettenblöcke leer sind und für die 
Speicherung neue# ■Programme herangezogen werden können. Hier läjj 
tet die Stack-Relation folgendermaßen: 
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au f' der Diskette in Laufwerk 0 (oder A) gespeicfiejft werden kann . 
Entsprechend wird der Block mit der Nummer 99 der erste Block au|f 
Laufwerk 1 (oder B) sein. Die Nummer eines Blockes hängt also 
auch davon ab, auf welchem Laufwerk er sich befindet. Angenommen, 
ein bestimmter Block ist der 61ste auf seiner Diskette. Wenn Sie 
diese: (Diskette nun in Laufwerk 0 legen, dann erhält der fragliche 
Block di e Nummer 60. Sollte sich hingegen die Diskette int zweiten. 
Laufwerk (Laufwerk.. "J) befinden, dann ist die; 'JSlocknummer . 

diesen Block gleicÄ- ’§59 . Da die Blöcke bei Ö beginnend dUhehnume 
riert werden, trägt der 61ste Block die Blocknummer 60. 

Wir wollen die eben besprochenen Informat lener, an einem kleinen 
Programm vertiefen, das ein Disketteninhaltsverzeichnis ausgibt. 
Wir wollen annehmen, daß auf jeder Diskette eine Kopie dieses 
Programms vorhanden .Ist. Es wäre z.B. äj|te$g|g, das Programm auf 
jeder Diskette ip 61sten Block (Nummer 60) abzuspei ehern* Ist die 
Diskette' .J;».' . Haufwerk 0, dann können wir das Programm laden, indem 
wir uns den Block 60 holen; ist sie in Laufwerk 1, so müssen wir 
Block 159 ansprechen. Nach Laden des Programms können Sie sich 
ei6 "Inhaltsverzeichnis der Programme auf Ihrer Diskette anzeige# 
lassen, indem Sie den Befehl DIRECTORY eingeben. Sie sehen dann 
auf Ihrem Bildschirm die Namen der einzelnen Programme, die sich 
auf der Diskette befinden. Um eines dieser Programme zu laden, 
geben Sie dann lediglich den Namen des Programms ein und drücken 
die Return-Taste. Das Wort sorgt dann selbst dafür, daß das von 
Ihnen gewählte Programm geladen und die Anfangsblocknummer in der 

Variablen SCR abgelegt wird; Sie können es somit edieren und 

auf listen . 

Wenden Sie Sich nun der Abbildung 8-l*(js|jtv .ftp.', der Sie ei n (Listiltg 
des fraglichen Programms sehen. In Zeil&-i4 wird ein Wort DRIVNO 

definiert, das den Benutzer fragt, in welchem Laufwerk sich die 

Diskette befindet. Der Benutzer antwortet mäifjleiner Zahl, die von 
dem Wort DRIVNO auf den Stack gelegt wird. In unserem Beispiel 
Programm nehmen wir an, daß die Diskette drei Programme enthält, 
wobei das Programm mit dem Namen FACTORIAL im Block Nummer 20 
gespeichert ist, FACTREAL ip Block 21 abgelegt und ALPHA iep Block 
4.6 iff zvfc finden ist . In Zeile 2 wird hüh zuerst das Wort 

FACTORIAL definiert. Es $i||t als erstes DRVNO und besorgt sich so 
auf dem Stack die Nummer des richtigen Laufwerks. Aus dieser Nurü 
mer erzeugen w.i r durch Multiplikation und Addition die Nummer des 
gewünschten. Blockes, welche wir duplizieren. Die erste Kopie der?; - 
Blocknummer speichern wir in der Variablen SCR, wodurch die 
Möglichkeit zum Bearbeiten des Programms gesichert ist; mit der 


280 



Di skettenope rationen 


0 ( Ein einfaches Disketten-Inhaltsverzeichnis ) 

1 : DRVNO BITTE LAUFWERKSNUMMER EINGEBEN " #IN 


2 :: FACTORIAL DRVNO 99 

3 :: FACTREAL DRVNO 99 * 

4 :: ALPHA DRVNO 99 * 4 6 

5 LOAD 1+ LOAD ; 

6 


20 + DUP SCR ! LOAD ; 

#1 + DUP SCR ! LOAD ; 

+ DUP SCR ! DUP 


9 

10 : DIRECTORY CR , " FACTORIAL FACTREAL ALPHA 


ABBILDUNG 8-1: Ein einfaches Inhaltsverzeichnis 


zweiten Kopie laden wir den Block, der die eigentliche Programm 
defx$||t&on enthält. Wir haben so das gewünschte Ergebnis erzielt. 
Das Wort in Zeile 3 der Abbildung 8-1 führt im wesentlichen die 
selben Verarbeitungss^S^itte aus. Zeile 4 zeigt die Definition 
des FORTH-Wortes. ALPHA. Nun haben wir ja vereinbart, daß das Wort 
ALPHA in zwei Blöcke gespeichert ist; deshalb muß die Definition 
der Zeile 4 auch, -dafifec- sorgen, daß zwei Blöcke geladen werden. 
ALPHA Unterscheidet sich am den beiden anderen Wörtern haügt'i 
sächlich dadurch, daß vor dem ersten Ladevorgang die Blocknummer 
dupliziert wird; nach Abschluß des Ladens steht sie also noch auf 
dem Stack, kann um 1 erhöht und für den nächsten Ladevorgang 

herangezogen werden. ALPHA sorgt so dafnEy daß die beide® 
gen Blöcke geladen werden und zur Editierung bereitstehen . 

In Zeile ;1Q sehen Sie die Definition des Wortes, mit dem das 
Inhaltsverzeichnis Sllfgelistet werden kann; es heißt DIRECTORY. 

Dieses Wort '■•Jpfichts anderes, als die Namen aller Programme 

äuszugeben. Unser I r.haltsve r zeiehr.i sproq ramir. f Tätigt ioniert also 

wie gewünscht, wenngleich es noch sehr primitiv ist. Jedesmal, 

wenn Sie ein neues Programm auf Ihrer Diskette abspeichern wol 
len, dann müssen. Sie das Programm fltä* das Inhaltsverzeichnis auch 
ändern. Wenn wf|8-' "ausgewachsenes" &$§$j.ebs System schreiben 

würden, dann müßten ail diese Aufgaben automatisch vpm System 
erledigt werden . 

Zwei weitere FORTH-Kommandos haben mit der Verarbeitung von Blök- 
ken und Blockpuffern zu tun. Das erste lautet BLOCK. Hier ein 

typisches Anwendungsbeispiel für dieses Wort: 
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132 BLOCK 


(8-1 


0) 


In diesem Fall wird die Zahl 123 vom Stack entfernt und dann der 
Block- , der Nummer 123 von den entsprechenden: viigif -Disketten 

Sektoren: 43® einen Älockpuffer im Arbeitsspeicher geladen. Als 
Resultat legt BLOCK weiterhin noch die Anfangsadresse des Puffers 
auf den Stack. Diese Adresse benötigt das FORTH-System, um den 
|*QjpfÄ’x verwalten zu können. Auch Sie können sie dazu benutzen, um 
Daten zu speichern. Wir haben für BLOCK folgende Stack-Relation: 


Ein weiteres, im Zusammenhang mit Ein-/Ausgaben benötigtes Wort, 
lautet BUFFER. Hier ein Anwendungsbeispiel: 


123 BUFFER 


( 8 - 12 ) 


Dieses Beispiel sorgt dafür, daß die Zahl 1 23 vom Stack entfernt 
und daraufhin 1024 ‘wte aus dem Arbeitsspeicher als Arbeit spuf-fdfe 
'-für Block 123 : zugewiesen werden. .-'Utie Anfangsadresse dieses Block 
puffers wird auf den Stack gelegt. Das Wort BUFFER arbeitet also 
ähnlich wie BLOCK. Der Unterschied besteht darin, daß ein Aufruf 
von BUFFER noch keine Information von der Diskette liest. BUFFER 
dient somit nur dazu, einen Speicherpuffer für nachfolgende Dis 
kettenoperationen zu reservieren. Die Stack-Relatioh für BUFFER 
sehen Sie ebenfalls iß. (8-11) . * 


8 . 2 Datenorganisation auf Disketten 

Wir werden jetzt darlegen, wie Daten auf Diskette gespeichert und 
dort wiedergefunden werden. Während der Ausführung eines Pro 
gramms kommeK;,1^|-. • Diskettenzugripfje vor. Eääiige der hierfür i r-. 
unserem Buch vorgestellten Wörter finden sich nicht in FORTH-79. 
Sie sind jedoch Bestandteil von MMSFORT^ weiterhin verfügen 
viele andere FORTH-Systeme über ähnliche Befehle. 


282 



Diskettenoperationen 


DWTSECS und DRDSECS - Mit diesen beiden Wörtern kann man in FORTH 
6n fo rma t i o.her. au£ die Diskette schreiben bzw. davon lesen. Sie 
sind kein Bestandteil von FORTH-79, lassen sich jedoch sehr be 
quem handhaben. 

dem Woüfc DWTSECS 'ksjin man: Säten Sö^f.Ä-s kette schreiben. Hier 
ein typisches Anwendungsbeispiel.;; 


NUMB 1 2-3 8 2 DWTSECS 


(8-13) 


Sei diesem Beispiel!; .Jiehmen wir an, daß NUMB eine Array-Variabl« 
ist,. Das Beispiel (8-13) sorgt dafür, daß d : e Information im 
Arbeitsspeicher, die bei der Adresse von NUMB beginnt, auf die 

Diskette geschrieben wird. Die Daten werden auf der -p^kette im 
Laufwerk; gespeichert.: T r.sqcsamt. -zwei Sektoren werden geschrie 

ben, wobei mit Sektor 8 der Spur 23 begonnen wird. (Denken sie 

daran, daß die Numerierung von Laufwerken, Spuren und Sektoren 
jeweils mit 0 beginnt.) Da ein Sektor 256 Byte aufnehmen kann, 
bedeutet dies, daß 512 Byte aus de# Arbeitsspeicher gelesen und 

auf Diskette gespeichert werden. Wenn Sie sich des Wortes DWTSECS 
bedienen, dann spielt es keine Rolle, welche Art von Informatio 
nen im Speicher befindlich ist; das Wort schreibt einfach eine 
zusammenhängende Folge von Bytes aiüjf Diskette, ohne sich um den 

Datentyp der so gespeicherten Information ;zu, kümmern. So braucht 
NUMB beispielsweise nicht unbedingt ein Array zu sein; ebensogut 
könnte es sich dabei um eine Variable handeln, in der eine ein 
fach genaue Integer gespeichert ist. Trotzdem werden bei Ausfüh 
fung von (8-13) ;pl§2 aufeinanderfolgende Bytes, beginnend bei der 
Adresse NUMB, auf Diskette kopiert. Das Wort hat folgende Stack- 
Relation : 


Hierbei steht n*i $nK die Laufwerksnummer, n A für die Spur, n A für 
die Sekbornummer 1 |^f der Spur .triSd die Anzahl der Sektoren, 

die übertragen werden sollen ''|as Wort hinterläßt ein Flag auf 
dem Stack. Damit wird dem Benutzer oder anderen Wörtern signali 
siert, ob die Kop i c rcpc rat Ion erfolgreich war. Bei der Ein-/ 
Ausgabe von Daten auf Ilis kotier. können nämlich Schreib- oder 
Lesefehler auftreten. Das FORTH-System überprüft zuerst, ob die 
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DatenübejBtf agung fehlerfrei vcr.statten gegangen ist und legt in 
diesem Fall eine 0 auf den Stack. Wie bereits bei anderen Bei 
spielen -steht diese den Wahrheitswert "falsch" . Sollten bei 

der Datenübertragung Fehler aufgetreten sein, so- .Jjegt DWTSECS 
hingegen den Wahrhaft swert "wahr" als Flag ailf den Stack. Sie 
können xffc einem Programm dieses Flag dazu benutzen, die Ein- 
/ Ausgabeoperationen abzubrecheit, wiederholen oder irgendwelche 

anderen Aktionen e.: nzuleiten, die Ihnen sinnvoll erscheinen. 

Den umgekehrten Vorgang, uämfish: das Lesen von Daten vor. Diskette 
in den Arbeitsspeicher, löst man mit DRDSECS aus. In seiner Ar 
beitsweise ähnelt es sehr DWTSECS. So bewirkt z.B. 


NUMB1 1 23 8 2 DRDSECS 


daß die Information, die sich im Laufwerk 1 auf Spur 23 in den 
Sektoren 8 bis 9 befindet, ,ifi den Arbeitsspeicher übertragen 'jiBü 
dabei mit der Adresse NUMB begonnen wird. Führen wir nacheinander 
zuerst (8-13) und dann (8-15) aus, dann werden 512 Datenbyte aus 
dem Arbeitsspeicher auf die Diskette übertragen und anschließend 

sofort wieder Vi-jii der Diskette irf den Arbeitsspeicher kopiert. 

Die beiden Wörter DWTSECS .und DRDSECS übertragen stets gar.zzah 
lige Vielfache von 256 Byte* Nun liegt nicht immer die Situation 
vof,-: daß wir genau j§-56 Byte oder -eia Vielfaches davon, speichern 

wollen. In diesem Fall bleibt uns jedoch nichts anderes übrig, 
als überschüssige Bytes mit abzuspeichern. In der Abbildung 8-2 

werden die bisher besprochenen Wörter afiich einmal vorgefftljrt ... 
Dieses einfache Programm kann numerische Daten auf Diskette 
schreiben und anschließend wieder davon lesen. Wir vereinbaren 
für diesen Zweck zwei Arrays mit: dem Namen NUMB und NUMB1 . Das 
selbstdefinierte Wort INPUT beginnt in Zeile 2. Rufen wir es, so 
werden Nacheinander die Zahlen 3, 6, 9, ; jz, ... , 597 Array 

NUMB gespeichert. Wie Sie leicht überprüfen können, speichert de% 
Array somit mehr als 256, aber weniger als 512 Byte. Das Wort für 
die Diskettenausgabe heißt DISKWRITE und beginnt in Zo i le 4; es 
schreibt: Byte auf die Sektoren 8 und 9 von Spur 23 der Dis 

kette. . 'igm Laufwerk 1. Mit der Bytesüberträfung wird dabei Uh der 
Adresse begonnen,- die durch NUMB angegeben ist. Das Auftreten 
eines Schreibfehlers SÖu|icL durch die Kombination aus IF und THEN 
in Zeile 5 abgefangen, in diesem Fall geben wif. ; die Meldung "DISK 
ERROR" auf dem Bildschirm aus und brechen das Programm ab. Unser 
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0 ( Beispiel zur Disketten-Ein-/-Ausgabe ) 

1 VARIABLE NUMB feg ALLOT VARIABLE NUMB1 512 ALLOT 

2 : INPUT 200 f- DO I 3 * NUMB + ! LOOP ; 

3 

4 :: DISKWRITE NUMB 1 23 8 2 EWTSECS 

5 IF . " DISK ERROR" QUIT THEN ; 

© 

7 :: DISKREAD NUMB1 1 23 8 2 DRDSECS 

8 IF . " DISK ERROR" QUIT THEN ; 

3 

10:: OUTPUT 200 H| DO NUMB1 2 I * + 0 . . " " LOOP J 

1 1 
1 2 

ABBILDUNG 8-2: Ein- und Ausgabe von Daten auf Diskette 


Wort INPUT hat zwar nu|* -400 Byte des Ärrays NUMB beschrieben; 
dennoch werden, beginnend bei NUMB, insgesamt 512 Byte auf Dis 
kette übertragen. Die Anzahl der übertragenen Daten ist also un 
abhängig von der Größe des Arrays, mit dem wir gearbeitet haben. 

In Zeile 7 beginnt die Definition von DISKREAD, welches 512 Byte 
der Diskette in Laufwerk Jfyjiest und dabei die Sektoren 8 und 
9 der Spur 23 heranzieht. Die übertragene Information wird im Ar 
beitsspeicher des Computers, beginnend bei der Adresse NUMB1, ab 
gelegt. Wieder fangen wir einen eventuellen Ausgabefehler ab, wo 
bei wir das Programm nach einer Fehlermeldung beenden. Jetzt 
fehlt noch ein Wort, mit dem wir die eingelesenen Daten anzeigen 
können; dies bewirkt die Definition von OUTPUT, die in Zeile 10 
finden ist . Sie können somit überprüfen, ob die beiden Wörter 
DISKWRITE und DISKREAD; Richtig .funkt ib'ftieren . 

Bei der Ausgabe der Daten auf Disketten haben mGf einige Bytes 
mit übertragen, deren Inhalt uns gar nicht bekannt ist. Dies 
kommt daher, daß bei Disketten-Ein- und -Ausgabe immer nur 256 
Byte oder ein ganzzahliges Vielfaches davon übettfiragen werden 
kdnn . ..’Jii der Regel verursachen solche überschüssigen Bytes keine 
Probleme bei der Programmierung. 
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.3 Eingabe vor. Textmaterial 


Mit den bisher besprochenen Möglichkeiten kann ebensogut Textma 
teiatäl gespeichert werden; genaugenommen sind’ diese Verfahren auÜ 
keinen best Lmmten Datentyp beschränkt. Wie wir jedoch orwähnt-'en, 
sind DWTSECS jjjtaä DRDSECS Mciit Bestspidteil von FORTH-7 9. Wir 
stellen deshalb an dieser Stelle noch einige FORTH-7 9-Bef ehle 
vor, mit denen Textmaterial aus feinem Diskettenblock gelesen 
werden kann. Einige der Kommandos, die wir bereits aus Kapitel 7 
kennen, können hier ebenfalls verwendet werden:* So kennen wir 
z.B. aus Abbildung 7-4 bereits die Wörter BLK* >IN gjÄ WORD. 
Befindet vor Aus£üjjr®|ig : von BLK eine andere Zahl als 0 auf 

dem Stack, dann kommen die. Daten nifefrt von der Tastatur, sondern 
von einem Öl skettenblock . Die Nummer des Diskettenblockes ent 
spricht dabei der Zahl, die BLK auf ‘dem Stack vofefindet . 

Es ist natürlich stets , möglich# Textmaterial Ä einen Disketten 
block über den Editor einzugeben. Dies f un k t Ach Ae rt genauso, wie 
wir Programme eingeben. Mit diesen Daten können wir dann die Ver 
fahren ;anwenden, die wir in den letzten Abschnitten kennengelernt 
haben. Weiterhin stehen ;tmiS noch einige Wörter in FORTH-7 9 zur 
Verfügung . 

TYPE - Mit diesem FORTH-Wort kann man ei-ßfe bestirhir.tc Anzahl Zei 
chen ausgeben. Wenn wir eingeben: 

34500 60 TYPE 

dann werden damit 60 Zeichen ausgegeben. Die ausgegebenen Zeichen 
befinden sich an den Adressen 34500 bis 34599 einschließlich. 
Beachten Sie, daß TYPE nicht unmittelbar mit Diskettenausgabe zu 
tun hat; vielmehr sollten wir es dann einsetzen, wenn wir Textma 
teri&l aüS? den Bildschirm bekommen wo | I en, das An einem Blockpuf 
fer gespeichert ist. Die Stack-Relation lautet: 


(8-16) 


COUNT - Ehe wir zeigen, wie man mit TYPE Textmaterial aus einem 
Blockpuffer ausgeben kaijöv wollen wir uns einem anderen FORTH- 
Wort, nämlich COUNT, zuwenden. Angenommen, in der Variablen SENT 
ist eifi String gespeichert. Üblicherweise findet man in den er 
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sten beide*! Bytes dieser Variablen eine Integer, die die tanqe 
des Strings angibt. Wir gehen davon aus, daß der String höchstens 
64 Byte lang ist und zur Speicherung seiner Länge eine vorzei 
chenlose ein Bytes lange Zahl benötigt wird. Wenn wir nun SENT 
rufen, dann- .ist die raäj| den Stack gelegte Adresse nicht ausrei 
chend, b* von TYPE verarbeitet zu werden, da ja das erste Bytes 
eine Integer enthält. Diesem Umstand tragen wir Rechnung, indem 
wir die Zahl auf dem Stack einfache bRl eins erhöhen und anschlie 
ßend noch eine Zahl aipf 1 den Stack pushen, die der Anzahl, abszuge 
bender Zeichen entspricht. Wir erhalten also das gewünschte Er 
gebnis mit folgenden Wörtern: 


SENT 1+ SENT C§ TYPE (8-17) 


Dies sorgt dafür, daß sich vor dem Aufruf von TYPE sowohl die 
Anfangsadresse des Strings als auch seine Länge auf dem Stack 
befinden. Mittels C§ legen wir die Zahl als einfach genaue Inte 
ger auf den Stack. Die einzelnen Verarbeitungsschritte von (8-17) 
kann man jedoch audb. fti-fc '.einem einzigen FORTH-Wort bewirken. Es 
lautet COUNT. Anstelle von (8-17) schreiben wir also einfach: 


SENT CÖSNT TYPE 


Eine eigene DefÄptäön von COUNT würde etwa folgendermaßen igjii.': 


: COUNT DUP gilsWAP C@ ; (8-19) 


Wenden wir uns nun dem einfachen Programm in der Abbildung 8-3 
zu, welches den Eiftiigtz von TYPE filjf' jdie Ausgabe vqä Texfcmaterial 
aus einem Speicherbl6s%T-3sllustEa^|:t . 

Das Beispiel bringt die Meldung DIESES PROGRAMM DRUCKT "DIESES 
PROGRAMM" auf den Bildschirm, an welche sich die Zeichenfolge 
DIESES PROGRAMM anschließt. In Zeile §S : sehen wir einen Teil des 
auszugebenden Tqxts ift> -Klammern. Die Klammern sorgen dafür, daß 
beim Laden des Blockes die darin stehende Information weder com- 
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0 (Toxtausgabe mittels TYPE) 

(DIESES PROGRAMM DRUCKT "DIESES PROGRAMM") 

2 : TEST CR CR 155 BLOCK 66 + 41 TYPE CR CR 

3 . " DIESES PROGRAMM" CR CR ; 

4 

| 

6 


ABBILDUNG 8-3: SLtf einfaches Programmbeispiel zu TYPE 


piliert noch ausgeführt wird. Wenn sich der Text auf einem sepa 
raten Block befindet, der nicht compiliert wird, dann wären die 
Klammern unnötig. Wir gehen davon aus, daß sigh das Programm in 
Block 155 befindet. Wenrt nun in Zeile 2 BLOCK gerufen wird, dann 
wird Block 155 flfc ‘einen Spo i che rpuf'for geladen und die Anfangsad 
resse des Puffers auf den Stack gelegt. Der Text, den wir ausge 
ben wollen, befindet sich in der ersten Zeile des Bl ockcs . Jede 
Zeile eines Puffers enthält genau 64 Zeichen einschließlich ieer; 
Zeichen* Das Wort DIESES begi£fS$it in der dritten ;Zeichenposifjidb 
der. »weiten Zeile. Somit. der Buchstabe D das 67ste Zeichen im 

Puffer. Dies ist der Grund, weswegen wir die Anfangsadresse des 
Puffers, die wir über BLOCK erhalten, um 66 erhöhen. Der auszuge 
bende Text ist insgesamt 41 Zeichen lang. Deshalb legen wir auch 
die Zahl 41 den Stack. Wird ifaftxdas Wort TYPE gerufen, dann 

liest es den gewünschten Text afts> dem Puffer und ihn aus. 

Den Rest der Meldung geben w|fe'- über das bereits bekannte FORTH- 
Kommando «Bis . Mit den soeben eingeführten Methoden kann jeder 
au f Diskette gespeicherte Text ausgegeben werden. 


. 4 Übungsaufgaben 


Überprüfen Sie alle FORTH-Wörtet oder Programme, die Sie ÄS} den 
folgenden Aufgaben schreiben, indem Sie sie. auf I h rem Computer 
laufeil lassen. Balten Sie die einzelnen Wörter möglii^-st kurz. 
Programmieren Sie modularj;. (JSÖdem Sie TeilatEÖjaben an Unterwörte# 
delegieren . 

8-1 Erörtern Sie die Prinzipien der Diskettenspeicherung. 

8-2 Was ist ein Block? 
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8-3 Worin besteht der Unterschied zwischen einem Blockpuffer und 
einem Diskettenblock? 

8-4- Schreiben Sie FORTH-Wort, das automatisch den gerade^ffm 

Arbeit befindlichen Block lädt, wenj|- Sie den Befehl LD eih 
geben . 

8-5 Probieren Sie die Wörter EMPTY-BUFFERS, SAVE-BUFFERS, FLUSH 
und UPDATE aus, um hitflii|er ihre Funktionsweise zu kommen. 

8-6 Worin besteht der Unterschied zwischen EDIT und E? 

8-7 Was ist der Unterschied zwischen den Wörtern LIST und L? 

8-8 Finden Sie heraus, wie LOADS in Ihrem System funktioniert. 

8-9 Bescha|fipn Sie sich über das FORTH-Wort INDEX ein Listing 
der Programme, die auf Ihretf jpi-skette gespeichert sind. Dies 
setzt natürlich voraus, daß die erste Zeile eines Blockes 
die entsprechende Information enthält. 

8-10 Ändern Sie das Programm der Abbildung 8-1 so ab, daß die 
Programme erst geladen werden, wenn der Benutzer das richti 
ge Passwort eingibt . 

8-11 Schreiben Sie ein FORTH-Wort, das ähnlich wie in Programm 

-^“l&^sformationen über das l^feg^sverzeicSftBaß^eirijB^ Diskette 
liefert, wenn ihm für ein Programm folgende Informationen 
zur Verfügung stehen: sein Name, der Anfangsblock und die 

Anzahl der zu ladenden Blöckd* 

8-12 Ändern Sie, das Programm von Aufgabe 6-16 so, daß alle Ausga 
ben.-4üf ''-Diskette gehen. 

8-13 Ändern Sie das Programm von Aufgabe 8-12 so, daß die Einqa 
bedaten in einem Array gespeichert werden. 

8-14 Schreiben Sie ein Programm, das die Fakultät der ersten für. f 
Zahlen berechnet und in einem Array speichert:, 

8-15 Wiederholen Sie Aufgabe 8-14 mit doppelt genauen Integers . 
Berechnen Sie die Fajptfltät der ersten rieün Zahlen. 

8-16 Wiederholen Sie Aufgabe 8-15 -mit Gleitpunkt zahlen . 
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8-17 Wiederholen Sie Aufgabe 8-15 mit doppelt genauen Gleitpunkte 
zah 1 en . 

8-18 Geben Sie mittels CO'JK— ' nr.d TYPE einen String aus, der sich 
im Arbeitsspeicher befindet. 

8-19 Wiederholen Sie Aufgabe 8-14, und drucken Sie diesmal mit 
tels TYPE die passende Überschrift. 

8-20 Spo ichern J5ie Textmateriaf au f einem Diskettehblock, und 
lassen Sie es dann satzweise ausgeben. 
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9 Einige weitere FORTH-Operationen 


Dieses Kapitel bespricht einige zusätzliche FORTH-Wörter . ÜfLese 
betreffet die Compilation und die Arbeitsweise des FORTH-Systems 
selbst . Kenntnisse dieser Wörter kommen Ihren Programmiertechni 
ken und einem vertieften Verständnis von FORTH zugute. 


9 . 1 Compi ler Steuerung 


In diesem Abschnitt erörtern wir einige FORTH-Wörter, die die 
Arbeitsweise des Compilers beeinflussen* Bei allen bisherigen 
FORTH-Wörtem geschah:- .folgendes : Während der Compilierung wird 

das Wort im Wörterbuch abgelegt und kann anschließend aufgerüfen 
werden. Wenn ein Wort andere Wörter ruft, dann läuft im wesentli 
chen derselbe Vorgang ab. Nach der Compilierung enthält der Wör 
terbucheihtrag des auf ruf enden Wortes die Adresse des Wortes, das 
geigelten wird. Dadurch können 'lUnterwörter " als Teil des Abar 
beitungsprozesses eines übergeordneten Wortes auf gerufen werden. 
Betrachten Sie dazu das Beispiel der Abbiljifttlg 7-5. Wir de .1 i'.e 
ren darin die Wörter ALPHA, ALPHAIN und ALPHAOUT. laden des 

Blockes wird jedes dieser feinzelnen Wörter comp : lifer und ins 
Wörterbuch eingetragen. Rufen wir nun das Wort ALPHA, so werden 
sowohl ALPHAIN als auch ALPHAOUT gerufen und ausgeführt. In FORTH 
gibt es jedoch einige Wörter* mit denen dieses allgemeine Schema 
abgeändert werden kann. 

IMMEDIATE - Mit diesem FORTH-Wort kann man bewirken, daß ein an 
deres Wort während der Compilierung ausgeführt wird. Wie das 
geSfcjS können Sie der Abbildung 9-1 entnehmen. Nehmen wir* j£ür den 
Augenblick einmal an, daß dilt die Zeilen 1 und 2 in der ÖeÄ; 
nition gegeben sind. Wenn wir den Block der Abbildung 9-1 laden, 
dann erscheint die Meldung "DRUCKE DAS" auf .dem. Bildschirm. 

Diese Meldung erscheint, während der Block compiliert wird. Al 
lerdings wii#d sigt hiebt dtatcfl die Comp: laticr. der ersten Zeile 
hervorgerufen. Der Compiler merkt sich lediglidfj beim Laders 'daß 
für das Wort TEST der Status "IMMEDIATE" (deutsch "uStftljttelbar " ) 
vereinbart wurde. Als nächstes übersetzt er TEST1 und trifft., da 
rin auf das Wort TEST? @r weiß, daß es sich dabei um ein Wort mit 
dem Status "IMMEDIATE" handelt, weswegen nicht einfach die Adres- 
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( Beispiel 

fuer Compilerworte 

) 


: TEST •“ 

DRUCKE DAS " ; 

IMMEDIATE 

2 

: TEST1 

EINS 

TEST ; 


3 

: TESTS 

ZWEI 

1 


4 

> TEST3 

DREI 

[COMPILE] 

TEST i 

5 

: TEST4 

■ VIER 

-TEST ; 


6 

::TEST5 

FUENF 

■COMPILE 

TEST2 , IMMEDIATE 

8 

: TEST6 «" 

SECHS 

■ TEST 5 

1 


ABBILDUNG 9-1: 

Beispiele zu 

r Compiler Steuerung 


se von TEST in die Definition von TEST1 aufgenommen wird. Viel 
melist wird das Wort TEST uhnitte 1 ba r ausqc iyh rt . Wenn wir jedoch- 
aarch vollständiger Compilation das Wort TEST1 «J||ifen, dann gelangt 
TEST .nicht zur Ausführung. Ein Äuf|$p von, TEST1 bringt nicht die 
Meldung "DRUCKE DAS" auf den Bildschirm. Anders bei Eingeben von 
TEST (RETURN); diesem Fall sehen wir. .die: .‘fragliche Meldung. 

Das bedeutet : Ist ein wor#, ij&it dem Status "imäffisdiate" Tefi^! de|«: 
Definition eines anderen Wortes, dann wird dieses nicht ausge 
führt, wenn das übergeordnete Wort gerufen wird. Wjjg^ ‘verleihen 
einem Wort diesen Status, indem wir IMMEDIATE unittittelbar den 

Strichpunkt der Definition anschließen. 

[COMPILE] - Gelegentlich wollen wir ein Wort mit dem Status 
"immediate" in einem anderen FORTH-Wort verwenden, wobei es sich 
aber so verhalten soll, als wäre es ein gewöhnliches FORTH-Wort. 
Dies erreicht man mit dem Kommando [COMPILE] . Abbildung 9-1 gibt 
auch dafür e Ih' Anwendungsbeispiel. Wir sehen, daß Innerhalb de# 
Definition von TEST3 das Kommando [COMPILE] auftaucht. Es steht 
in diesem Faji. unmittelbar vor dem FORTH-Wort, auf das es sich 
beziehen soll. Wenjt .'nuh das Wort TEST3 der Abbildung 9-1 compi- 
liert wird, dann verhält sich der Compiler so, als hätte TEST 
nicht den Status '"immediate". Beim Laden des Blockes der Abbil 
düng 9-1 verursacht also die Compilierung von TEST3 nicht, daß 
die Meldung "DRUCKE DAS" erscheint. Das bedeutet also, daß ein 
Wort mit dem Status "immediate" nicht als ein solches behandelt 
wird, wenn ihm das Kommando [COMPILE] vorausgeht. 

COMPILE - Wie wir jetzt wissen, wird' a§JÄ Wort- #iit dem SLa.tüs 
"immediate" ignoriert, wenn es in einem anderen Wort eingesehlos 
sen ist und dieses compaiiLert Isrird. Das " immediate " -Wort'. Wird. äÜt 
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den WörterbucheifVbJrag des umgebenden "äußeren" Wortes Ojfcbfit mit 
aufgenommen» 'Sollte man dies jedoch wünschen, dann gibt es dafür 
einen speziellen Befehl, der dafür sorgt, daß "immediate "-Wörter 

auch in den Wörterbucheintrag anderer Wörter zur Compilezeit mit 
aufgenommen werden. Betrachten Sie dazu die Zeilen 3, 6 und 1 der 

Abbildung 9-1. Innerhalb der DeÄaition Von TEST6 kommt das Wort 
TEST5 vor, welches den Status "immediatft^ hat. Normalerweise 
würde bei einem Aufruf von TESTS das darin enthaltene TESTS 

keinerlei Auswirkungen auf den Programmablauf haben. In TESTS ist 
wiederum das Wort TEST2 enthalten, bei dem es sich Up ei r. norma 
les Wort handelt. Unmittelbar vor dem Vorkommnis von TEST2 inner 
halb von TEST5 finden wir nun das neue FORTH-Wort COMPILE. Wird 
nun TESTS iji^jierhalb eines anderen Wortes compiliert, dann behan 
delt der Compiler TEST2 so, als wäre es Teil eines gewöhnliche® 
Wortes und nicht eines mit dem Status "immediate". Die verb lei, 

benden, in der Def iigüfi.dn von TESTS noch enthaltenen Wörtegg. 
werde®: jedoch so behandelt, wie es bei einem "immediate "-Wort 

üblich ist. Es wird also beispielsweise bei der Compilierung von 
TEST6 die Meldung "FUENF" ausgegeben. Wird anschließend das Wort 
TEST6 gerufen, dann sieht man hingegen die Meldung "SECHS ZWEI". 
Wäre nun innerhalb von TESTS das Wort COMPILE nicht enthalten, 
dann hätte TEST2 keinerlei Auswirkung auf die Arbeitsweise von 

TEST6 . Wird TEST5 selbst ausgeführt, dann wird TEST2 übergangen. 
Das bedeutet, daß das hinter COMPILE stehende Wort nicht ausge 
führt wird, wenn das umschließende Wort geföfen Wird. Rufen 
ein Wort, J?fw dessen Definition der Befehl. COMPILE enthalte^ *j£st, 
dann wird die Adresse des darauffolgenden Wortes näiffc in das 
Wörterbuch übernommen, so daß es ausgeführt werden kann. 

Sehen wir uns noch einmal im einzelnen an, was beim Laden des 
Blockes der Abbildung 1-1 passiert. Die Compilierung von TEST1 
bewirkt, daß die Meldung "DRUCKE DAS" ausgegeben wird. Eben diese 
Meldung wird auch ausgegeben, wenn der Compiler TEST4 übersetzt. 
Schließlich sehen wir noch die Meldung "FUENF", wenn der Compiler 
auf TEST6 stößt. 

Sehen wir uns nun an, was bei Ausführung der einzelnen Wörter in 
Abbildung 9-1 geschieht. Rufen wir TEST, dann erhalten wir die 
Meldung "DRUCKE DAS". Bei Ausführung vbj) TEST1 sehen wir a|^|' dem 
Bildschirm die Meldung "EINS". Da TEST ein "immediate "-Wort ist, 
hat es hier keinerlei Auswirkungen. TEST2 ist wieder ein ganz 
normales Wort, es bkiftgt die Zeichenfolge "ZWEI" auf den Bild 
schirm. Rufen wir TEST3, so sehen wir "DREI DRUCKE DAS". Das Korn 
mando [COMPILE] sorgt dafür, daß TEST mit in dieses Wort com- 
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piliert wurde. Das Wort in Zeile 5, TEST4 , bringt nur die Meldung 
"VIER", da TEST unverändert Seinen Status, als " irranediat e " 

beibehält. Ebenfalls sehen wir bei Ausführung- von TESTS lediglich' 
die Meldung "FUENF" . Hier sorgt COMPILE dafür, daß von einer 
Ausführung von TEST2 abgesehen wird. Andererseits wird TEST2 in 
herhalb von TEST5 aktiv, wenn TEST5 von einem anderen Wort geru 
fen wird. Diese Situation haben wir in TEST6, welches deswegen 
auch die Zeichenfolge "SECHS ZWEI" ausgibt. 

LITERAL, [ sjfjfwä; ] - Oft ist es 'nützlich^ in einem Programm den. 

Anfangswert einer; Variable?! 'längere Zeit zu benutzen. Nun kann 
sich jedoch der Variablenwert während der Ausführung ändern. Des 
halb genügt es nl’iöhit, einfach den Variablenwert bei der Aus 
führung des Programms zu holen, weil sich dabei ja ein anderer 
als der Anfangswert ergeben kann. Eine Lösung wäre es, statt des 
sen eine Konstante zu definieren, die den Anfangswert der Varia 
bien da rs teilt» Sollte diese Notwendigkeit aber bei mehreren 
Variablen auftreten, so würde dadurch zuviel Speicherplatz ver 
schwendet werden. ?$$*§, den FORTH-Wörtern LITERAL, [ und ] katlii man.-' 
dieses Problem lösen. .Et.jje Beispielanwendung dieser Wörter sehen 
Sie in Abbildung 9-2. Sehen wir uns einmal an, was hier gm 
schieht Zeile 1 definieren wir die Variable VAR. 


0 ( Beispielprogramm zu LITERAL ) 

.1 VARIABLE VAR 5 VAR ! 

2 : SUMME [ VAR 0 ] LITERAL + 

3 : ERGEBNIS % * DUP VAR ! SUMM . 

4 


ABBILDUNG 9-2 : Ein Beispielprogramm zu LITERAL, [ und ] 


Dann legen wir die Zahl 5 auf den Stack und speichern diesen Wert 

.18 VAR. der nächsten Zeile sehen w$Jjü' -'die Definition von SUMME, 

wo(sJj5& die FORTH-Wörter züÄ .Holen des Variablenwert s in eckige 

Klammern eingeschlossen sind. Das Wort X sorgt dafür, daß an 

schließende Befehle ausgeführt und nicht compiliert werden, wenn 
der Block geladen wird. Die Ausführung geht so lange weiter, bis 
FORTH auf das Wort Ü stößt.,, Dahinter wird wieder normal mit der 
Compilierung weitergemacht. Das bedeutet, daß während der Compi 
lierung von SUMME der Wert 5, deifr i£n VAR qespeiche rt ist, atuf der. 
Stack gelegt wird. Es folgt das Kommando LITERAL. Dieses sorgt 
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m die Compilierung von 
n safte Wirkung dieser Befehle ist also 
die Konstant® |f nach dem Wort SUMME 
ls so 1 bstdo find c ne SUMME entfernt also 
jjß;d addlfeift den Wert 5 darauf . Das Er< 
dann den Stack gelegt . 

Definition von ERGEBNIS in Zeile 3. Di< 
te Zahl vom Stack, multipliziert sie md 
ebnis. Das Produkt wi rd darauifhip ifi 
ERGEBNIS hat also als Ergebnis diejei 
wenn man den obersten Stack-Eintrag mi 
' addiert . 

1 , entfernt LITERAL die oberste ein: 
:fc Und sorgt dafür, daß sie in den Wörl 
eingeht, das gerade compilS$Sf$.‘ wird. 


rH-Wörter [ und ] werden innerhalb e: 
zt. Während des Compiliervorgangs we: 
eckigen Klammern stehen, ausgeführt 


Alternative Wörterbücher 



miersprache FORTH trägt sinnigerweise den Namen FORTH. 
hör geschriebenen De fjjfjäjfc lenen wurden Rieses Vokabi 

t ragen.- Wie wir aber bereits gesagt haben, ist es c 
wünschenswert, separate Onterwörterbücher (Vokabular) 
ten. Wir wollen einmal sehen, wie dies erreicht werden ka 

VOCABULARY - Mit dem FORTH-Wort VOCABULARY richtet mal 
Teilwörterbuch (ein neues Vokabular) ein. Wenn- wir be: 
ein Vokabular mit dem Namen HOUSE vereinbarer wollen, 
wir zuerst das Kommando: 


VOCABULARY HOUSE 


einigen FORTH-Versionen 
IMMEDIATE zu schreiben. 


ist es nötig, hinter 
Bis jetzt ist? 


HOUSE 

noch k 


HOUSE 


HOUSE 
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.leji Vokabular. Nur wenn da. r :.n das gesuchte Wort nicht enthalten 

ist, dann setzt das Syst#®! die Suche 'd)jJpS£,. dem FORTH-VokabuXar 
fort. Wenn wir das Wort FORTH rufen, dann machen wir wieder die 
ses Vokabular zum aktuellen. Eine Wörterbuchsuche würde nun im 

FORTH-Wörterbuch beginnen. Findet sich jedoch nun das gesucht# 
Wort nicht, dann verzweigt die Suche in diesem Falle nicht zum 
Teilvokabular HOUSE . Indem wir die Definition von TeilwörterbS 
ehern sorgsam planen, können wir damit sehr bequem arbeiten. 

Natürlich kann man genausogut mit ausschließlich einem Wörterbuch 

arbeiten. Viele Verarbei^^igsschKittte werden jedoch beschlejSiiigt, 
wenn man sich alteraMfeiver Wörterbücher bedient . 

CONTEXT, CURRENT und DEFINITIONS - Wir müssen unsere Ausführungen 
vom letzten Abschnitt dahingehend erweitern^*- • daß ein Unterschied 
zwj^lfifhen dem Wö rterschatz. besteht, der durchsucht und dem, an den 
neue ||#if initionen ange fügt werden. Die Wopt^ibuchsuchJj. findet' 

statt, während neue Definitionen ins aktuelle 
Wörterbuch aufgenommen werden. Wenn wir nun das FORTH-Wort DEFI 
NITIONS -'pfiffen, dähjf Jfird das Kontext-Wörterbuch auch %ütn aktuel 
len. Wenn wiff z.B. nach AusfüSrütaJ von (9-2) .'^usätzl'jibfi, fiöSh 
HOUSE und anschließend DEFINITIONS ausführen, dann werden alle 
neuen Definitionen auch in das Teilwörterbuch HOUSE compiliert. 
Nocheinmal: Neue Einträge werdet im aktjj#llen Wörterbuch vorge 

nommen, während Wörterbuchsuchen grundsätzlich im Kontextwörter 
buch stattfinden. 

FORTH merkt sich- in zwei speziellen Variablen, welches Wörterbuch 
«in das Kontext- und welches das aktuelle Wörterbuch sie 

heißen CONTEXT und CURRENT. In CONTEXT finden wir die Adresse des 
Wörterbuchnamens, bei dem die Wörterbuchsuche beginnen soll, ähn 
lieh steht in CURRENT die Adresse des Wörterbuches, |b das neue 
Definitionen eingetragen werden sollen. Sowohl CONTEXT als auch 
CURRENT haben als Stack-Relatioh 


(9-3) 


Beachten S Le, daß man durch einen Aufruf von CONTEXT bzw. CURRENT 
die Adresse dieser Variablen und Bstdh^- fetwa die der entsprechen 
den Wörterbücher auf den Stack bekommt. 

Wir wöX-len fiüs noch weitere Miifzelheiten der Wöaff# r buchsuche be 
sprechen. Angenommen, wir arbeiten mit drei verschiedenen Wörter 
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büchelöäijj. d i o in der Reihenfolge vereinbart wurden: FORTH, HOUSE 

und BOOK. Falls BOOK das Kontextwörterbuch ist, dann bezieht eine 
Körtorbuch su che alle drei Wörterbücher mit ein. Ist andererseits 
HOUSE das Kontextvokabulbir, dann wird BOOK bei der Suche übergan 


' - Wir müssen jetzt noch das FORTH-Wort 1 besprechen. Wird es 

ausgeführt, dann liegt die Adresse des nächsten Wortes im Einga 
bestrom auf dem Stack. Wenn wir z.B. folgende Wortfolge eingeben: 


NUMB (9-4) 


dann erhalten wir als Ergebnis die Adresse von NUMB auf dem 
Stack, Öies setzt allerdings voraus, daß NUMB ein Name ist, der 
im Kontextwörterbuch bekannt ist. Sie können also überprüfen, ob 
das System einen bestimmten Namen momentan kennt, indem Sie ' und 
anschließend den gewünschten Namen eingeben. Er scheibt" die übli 
che Bo re : Lschaftsme 1 düng Ihres Systems dem B.i 1 d sch lim , dann 

bedeutet dies, daß der Name momentan bekannt ist. Sehen Sie statt 
dessen jedoch den Namen, gefolgt von einem Fragezeichen, dann 
heiifb das, daß der fragliche Name d u r'd B eine Wo ruerbuchsuche 
nicht ausfindig gemacht werden kann. Ebenso kann man mit 1 die 
Adresse einer Konstante finden und dann den darin gespeicherten 
Wert modifizieren. 


9.3 Weitere FORTH-Kisinemdos 


Die im Folgenden vorgestellten FORTH-Wörter befassen sich zum 
To: i jffiSt, fiatlipulationen des Arbeitsspeichers, zum Teil führen sie 
eine völlig neue Programmiertechnik ein. 

MYSELF - öfij Öj.S't es wünschenswert', wenn ein FORTH-Wort 

selbst älEfrufen kann; man spricht?. 'fas 'diesem Fall v0ft einer rekui . 
siven Sfefinittö® . getpjffe man das Kommando MYSELF ein. Wir 

wollen dies an einem Beispiel, -erläutern. In Abbildung 9-3 sehen 
Sie ein FORTH-Wort, dem wir den Namen RECURSIVE gegeben haben Und 
das folgendermaßen furtktidßiert : Es legt eine 3 den Stack und 

führt dann die Addition aus. Die Summe wird dupliziert und an 
schließend um 99 vermindert. Schließlich überprüfen wir, ob wir 
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9 Einige weitere FORTH-Operatio’nen 


0 ( Ein rekursives Programm ) 

1 : RECURSIVE 3 + DUP 99 - 0> 

2 IF . QUlf» THEN MYSELF ; 

3 

4 

ABBILDUNG 9-3: Ein rekursives Programmbeispiel 


einen Wert größer Null erhalten . .. pft .dies der Fall, dann 'wird; der 
oberste Stack-Eintrag ausgegeben, und das Programm bricht ab. Ist 
die Zahl jedoch kleiner als 0, dann rufen wir das Wort MYSELF. 

Dies sorgt dafür, daß sich das Wort RECURSIVE selbst aufruft und 

den ganzen Vorgang wiederholt. Somit addiert: ur.se r Beispielpro 

grarnir fortgesetzt 3 aus)?, eine Zahl, bis die entstehende Summe den 
Wert 100 übersteigt. In diesem Fall bricht der Prozeß ab, und die 
Ergebnis zahl wird ausgegeben. 

Beim Einsatz $rf$i MYSELF sollten Sie Vorsicht walten lassen. Ach 
ten Sie darauf, daß sich ein Wort nicht ununterbrochen selbst 

auf ruft. In diesem Fall hängt sich das System nämlich auf, und 
Sie müssen jäiljeii Rechner neu starten. Auch sollten Sie vorsichtig 
sein,_ damit nicht fortgesetzt Daten auf den Stack gelegt werde# 
und dieser somit den gesamten zur Verfügung stehenden Speicher 
platz überschreibt. 

EXECUTE - Wenn wir das Wort EXECUTE aufrufen, dann sorgt dieses 
daß das Wor^.- dessen Adresse asjäjt' dem Stack zu finden ist., 
ausgeführt wird. 

EXIT - Wird EXIT innerhalb eines anderen Wortes gerufen, dann 
wird dessen Ausführung abgebrochen. Sie können EXIT jedoch nicht 
innerhalb von Schleifen verwenden. Befindet sich EXIT innerhalb 
eines Blockes und dort nicht Teil eines anderen Wortes, dann 

werden beim Laden dieses Blockes sowohl der Ube rsctzungs- als 
auch der Ladevorgang abgebrochen, we|^ FORTH auf das Wort EXIT 
stößt . 

FIND - Dieses Wort legt die Adresse des nächsten Wortes im Einga 
best rom auf den Stack. Sollte es sich im Wörterbuch nicht ausfin 
dig machen lassen, dann schreibt es statt' dessen eine 0 auf den 
Stack . 
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Gelegentlßih ist es wünschenswert, einen zusammenhängenden Block 
vor. Speicherwörtern einem bestimmten konstanten Wert zu bele 

gen. Wir haben etwa mm Abschnitt. 8-2 erfahren, daß bei der Über 
tragt ng von Informationen auf Diskette eventuell überschüssige 
Bytes mit abgespeichert werden können. In diesem Fall wäre es 

wünschenswert, diese Überschußdaten zu löschen, so daß sich auf 
der Diskette keine sinnlosen J^forÄtätionen befinden. Das Löschen 
könnte man z.B. dadurch erreichen, daß den überschüssigen 

Speicherbereich an jede Adresse eine 0 geschrieben wird. Bei 
einigen Computern ist ein spezieller Bereich des Arbeitsspeichers 
Jfijf -den Bildschirmspeicher reserviert. diesem Fall ist de^ 

Computerbildschirm in einzelne Elemente jägh%erteilt , von denen je 

des die Größe eines Buchstabens oder Sonderzeichens hat. Jede 
dieser Bildschirmkomponenten entspricht nun genau einer Adresse 

im Bildschirmspeicher. Welches Zeichen an einer bestimmten Stelle 
des Bildschirms erscheint, hängt davon ab, welcher ASCII-Code 
sich an der Adresse befindet, die dieser Bildschirmstelle ent 
spricht. Speicherworte, in denen der Bildschirminhalt abgebildet 
wird, siilä stets zusammenhängend. Angenommen, wir wollen bei ei 
nem solchen Computersystgm den Bildschirm löschen. Dazu müssen 
wir lediglich den ASCII-Code 32 für das Leerzeichen in jede 
Adresse des ' ^jjldsehirmspeichers schreiben. Ffäb die Erledigung 
solcher Aufgaben stellt FORTH mehrere Wörter zur Verfügung. Eines 
davon lautet FILL. Hier e$p? Anwendungsbeispiel : 


26000 1000 90 FILL (9-5) 


Bei Ausführung von (9-5) werden 1000 Speicherwörter, beginnend 
bei der Adresse 260C0, mit dem Zeichen besetzt, das den ASCII- 
Code 90 (der Buchstabe Z) hat. Die Stack-Relation für FILL lautet 


a n n, -> (9-6) 


jifli einen Teil des Arbeitsspeichers säVlfc Leerzeichen zu füllen, 
müssen wir nur für die Zahl 32 setzen. Es gibt jedoch noch ein 
anderes FORTH-Wort, das für diesen speziellen Zweck beguenäer ist. 
Es lautet BLANK oder bei einigen Systemen BLANKS. Dieses Wort hat 
folgende Stack-Relation: 
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a n.'~> (9-7) 

Hierbei werden n aufeinanderfolgende Speicherwörter mit Leerzei 
chen gefüllt, wobei bei der Adresse a begonnen wird. 

ERASE - Dieses Wort funktioniert ähnlich wie BLANK, außer daß der 
Speicher nicht mit Leerzeichen, sondern;' bihSren Nullen be 

setzt wird. 


9.4' Übungsaufgaben 


Überptüfen Sie die P'Spgramme, die Sie ‘jpj| den folgenden Übungsaää^E’ 
gaben schreiben, indem Sie sie auf Ihrem Computer laufen lassen. 
Halten Sie:' einzelne Definitionen möglichst kurz, bedienen Sie 
sich des modularen Programmierstils. 


9-1 Erörtern Sie die Funkt i.or.swe : so von IMMEDIATE . 

9-2 Legen Sie die Unterschiede zwischen [COMPILE] $$$ COMPILE 
dar. Schreiben Sie cazü eigene FORTH-Wörter , die den Unter 
schied erhelleffi* 

9-3 Schreiben Sie ein Programm, das: jedesmal dann automatisch 

eift p": skctten : nha '..Lsverzeichn Ls ausgibt, wenn der Disketten 
block mit dem“ Inhaltsverzeichnis geladen wird. 

9-4 Ändern Sie das Programm x ! n Abbildung 7-2 so ab, daß bei 
seiner Übersetzung jedesmal ein Punkt ausgegeben wird, wenn 
eine Textzeile verarbeitet wird. 

9-5 Erörtern Sie die &£Jhsat zmögl ichkeiten für das FORTH-Wort 

LITERAL. 

9-6 Wiederholen Sie Aufgabe 9-5 mit den FORTH-Wörtern [ und ] . 

9-7 Schreiben Sie ein FORTH-Programm, das den Durchschnittswert 

eines Studenten iß vier Tests ermibt/sif; das Ergebnis in 

einer Variablen speichert . Das Programm sol£ den Durch 
sch^sift sowie eine Meldung ausgeben, ob der Student bestan 
den hat. 1|J[e Punktzftiii zum Bestehen der KÜ&Ag soll am An 
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tfang in derselben Variablen gespeichert werden;^, 1p der sich 
letztendlich der Durchschnitt befindet. 

9-8 Schreiben ein rekursives FORTH-Programm, das die Summe 

von 20 aufeinanderfolgenden Zahlen berechnet, wobei es mit 
der Zahl beginnt, die sich an oberster S Lack -Pos 1. zier, be f «uj . 
det . 

9-9 Wiederholen Sie Aufgabe 9-8, wobei diesmal jedoch 20 aufein 
anderfolgende gerade Zahlen addiert werden sollen, 

9-10 Wiederholen Sie Aufgabe 9-8, wobei diesmal 20 aufeinander 
folgende ungerade Zahlen addiert werden sollen. 

9-11 Schreiben Sie unter Verwendung von MYSELF ein rekursives 
Programm zur Berechnung der Fakultät . 

9-12 Schreiben Si | ein rekursives Programm, das die Summe des 
Ausdrucks 1/n für n = 1, 2, 3, . . . berechne#, Arbeiten Sie 

mit Gleitkommazahlen. Das Programm sollte abbrechen, wenn 
1 / ri kleiner als 0.00001 wird. 

9-13 Füllen Sie 1024 zusammenhängende Speicheradressen mit dem 
ASCII-Wert für X. 

9-1 4 Wärusp kann das ProgratnÄ der leisten Aufgabe unter Umständen 
dazu führen, daß Sie Ihr System neu starten,, müssen? 

9-15. Schreiben Sie ein Programm, das einen Blockpuffer mit Leer 
•Zeichen äüiffftjp-t • 


iSf# 
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Anhang: Glossar der FORTH-Wörter 


Dieses Glossar führt alle besprochenen FORTH-Wörter auf. Sie fixt, 
den darin den Abschnitt, in dem das entsprechende Wort besprochen 
wird, seine Stack-Relation und eine kürze Beschreibung der Futtk 
tionsweise. Nicht alle im ßlossar enthaltenen Wörter sind Be 
standteil von FORTH-79 Darüber hinausgehende Befehle sind in der 
Regel -?fh MMSFORTH und anderen FORTH-Systemen zu finden. Genauere 
Informationen entnehmen Sie bitte den Abschnitten, in denen die 
einzelnen Wörter definiert werden. 


BESCHREIBUNG 


ABSCHN. STACKRELATION WORT 


Speichert -eine Zahl in der Adres 
se an oberster Stack-Position 

Dient bei der Zah 1 enausgabe mit 
Maske für die tifferndarstellung 
vorzeichenloser doppelt genauer 
Integers 

Beendet die maskierte Zahlenaus 

Fordert zur Eingabe einer einfach 
genauen Integer auf 

Wandelt bei der Zahlenausgabe mit 
Maske Ziffernzeichen in den AS- 
CII -Code: \>iK" 

Dient zum Speichern Vors Strings 

Vereinbart einen String im Ar 
beitsspeicher 

Entfernt nachlaufende Blanks vom 
Druckt einen String 


3-3 


d l 


d 2 


3-3 


d -> a n 


3-3 


d -> 0 


7-3 


a$ a -> 


#IN 


#S 


$— TB 

$. 


m 
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Vereinbart einen : StJSji||g-Array 
Vergleicht Stringvariable 
Vereinbart eine Stringkonstante. 
Vereinbart eine Stringvariable 
Vertauscht die Werte in Stringva 

Liefert die Adresse des nächsten 
Wortes iir JSiftgabestrom 

Leitet einen Kommentar eijfSp 

Lief e$i|f.'das Produkt zwo i er .fahlen. 

Multipliziert n^ mit n 2 und divi 
diert das doppelt genaue Produkt 

Ähnlich Wie */ ; liefert jedoch 
auch den Rest 

Liefert die Summe zweier Zahlen 

SßSkrementiert den gespeicherten 
Wert 

lÄjkrementiert eine SchleMjpnva 

Compiliert n ins Wörterbuch 
Subtrahiert n 2 von'*ri 1 
Aktualisiert den Zeichenzähler 

Gibt eine Zahl aus 
Gibt Text aus 


7-3 

7-3 

7-3 

7-3 

7-3 


nj n 2 


aj a 2 


aj a 2 


$ARRAY 
n $ COMP ARE 
$CONSTAMT 
$VARIABLE 
$XCG 


2-3 

2-1 

5-2 


n| n 2 

"1 n 2 n 3 


2-1 

6-2 


6- 3 

2-1 

7 - 3 
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Gibt die Zahl Datenfeld Äj. 

3-3 


_> 

• R 

Dividiert A durch n 2 

2-1 

"1 "2 

-> 

q/ 

Divi sion mit .^.'jibtlQnt. ttad Rest 

2->i ; 

n i rt 2 

-> 

r q /MOD 

"Wahr", falls n < ö 

4-i - 



0< 

"Wahr", falls h 

.1-1- 

n -> 

f 

0= 

"Wahr", falls n > 0 



f 

0> 

-Jfil’krementiert den obersten Stack- 
E'iotrag um Eins 

2.-1 

n - > 


1 + 

Dekrementiert den obersten Stack 
eintrag um Eins 

■2-7 

n -> 

"1 

fit 

Multipliziert den obersten Stack- 
Eintrag mit 16 

2-7 

n -> 

■%. 

i#*- 

Speichert, eine doppelt genaue 
Integer 

6-2 

d a - 

-> 

2! 

Definiert einen zweidimensionalen 
Stppsg-Array 

7-3 

n i "2 

"3 

-> 2$ARRAY 

Multipliziertet die oberste; •Äteger 
mit 2 

2-7 

n -> 

"1 

2* 

Addiert 2 auf die oberste Integer 

2-7 


"1 

2+ 

Subtrahiert M -tedh der obersten 
Integer 

2-7 

n 


2- 

Dividiert die oberste Integer 
durch: 

2-7 

•n -> 


2/ 

Holt eine doppelt genaue Integer 

6-2 

a -> 

d 

2 § 

De&tiert einen zweidimensi&hälen 

6-4 

bl n 2 

-> 

2£RRAY 
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Definiert eine doppelt genaü©. 
Konstante 


De fiftiejrtf, einen doppelt genauen 
Integer-Array 


Entfernt die oberste doppelt ge 
naue Integer vom Stack 


Dupliziert die oberste doppelt 
genaue Integer auf de® Stack 


2-A d -> d d 


Dupliziert die zweite doppelt 
genaue Integer auf dem Stack an 
oberste Stack-Position 


2-5 d d, OVER 

--> a, d„ d1 


Rotiert die dritte doppelt genaue 
Integer an oberste Stack-Position 


Vertauscht die obersten beiden 
doppelt genauen Integers 


2-5 d 1 d, d 3 2R0T 

■ _> \ ^3 d l 


2VARIABLE 


Leitet die Def initidii; eines 
FORTH-Wortes öiri 


Beendet die Defi^Ui:^® eines 2-3 

FORTH-Wortes 

Wird "wahr” , falls n A <", n» 

Leitet die Zahleneingabe mit Mas 
ke ein 

Wird "wahr* , falls n A kleiner 4-1 — > f <= 

oder gleich n 2 ist 

Wird "wahr"’/, falls n d ungleich n 2 4—1 a "ii -p 

ist 


4-1 

3-3 


Dupliziert n Speicherwörter begin- 7-1 a , a2 n -> < CMOVE 

nend bei an der Adresse a 2 '< 
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der FORTH-Wört< 


Enthä%3i. . die Adresse des BlockpuiSf 
fers für den EingaJbestrom 

Überträgt den Black ir von der 
Diskette in den Arbeitsspeicher 
und legt dessen St artadresse asif' 
den Stack 

Wie BLOCK, die Daten werden je 
doch nicht übertragen 

Speichert das niedrigstwertige 
Byte einer einfach genauen Inte 

Holt, ein Byte und speichert es 
als elii'fiach genaue Tntege|F' 

Beendet eine CASE-Anweisung 

Wandelt eine ein Byte länge Inte 
ger in ihre ASCII-Darstellung um; 
das Ergebnis steht Ift 'temporären 
Arbeitsbereich, dessen Adresse 
auf den Stack gelegt wird 

Überträgt n Bytes von Adresse 1 
nach Adresse 2; die Übertragung 
beginnt, bei defe -niedrigwertigen 
Adressen 

SlSijjjfe. einen Wert in die Wortdefi 

Vereinbart eine Konstante mit dem 
Wert n 

Enthält die Adresse des Kontext- 
Vokabulars 


BLK 

BLOCK 

BUFFER 

C! 

S 

GASEND 

CHR$ 

CMOVE 

COMP ILE 
CONSTANT 
CONTEXT 


Legt die Anfangsadresse des 8-2 a — > a'' n COUNT 

Strings und den Stringzähler: 
den Stack 
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Sendet einen Zeilenvorschub 3-1 

Richtet einen Wörterbucheintrag 6-3 


CR 

CREATE 


Lenkt die Ausgabe auf den 3-1 CRT 

Bildschirm 


Enthält die Adresse des aktuellen 9-2 - > a CURRENT 

Wörterbuches 


Fordert .gl# 1 ;' Eingabe einer doppelt Jp-1 — > d Df IN 

genauen Integer auf 


Multipliziert: doppelt genaue. In 5-1 d ^ d ^ ^ D* 

Multipliziert d A mit d 2 und divi d 2 dß D*/ 

d i ör.fc das viefjligh genaue<^^odukt — > d 

anschließend durch d A 


Wie D*/; liefert aber auch den 
Rest 


5-2 Vi d ä 

r q 


D*/MOD 


Addiert zwei doppelt genaue Zah 5-1 d x d 2 ~> d D+ 


Subtrahiert zwei doppelt genauem 5-1 d ^ ^ d D- 

Zahlen (d A minus d 2 ) 


Liefert den Quotienten von d A und 5-1 d ^ > d D/ 

% 


Wie D/, 'liefert aber auch noch 
den Rest 

Gibt eine doppelt gena®^ Integer 


»iH K 


D/MOD 


5-1 d -> 


D. 


Gibt eine doppelt genaue Integer 5-1 d h — > D.R 

in o i nem » Zeichen, .fangen Daten 
fi^ld aus 
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'^p% "wahr", wenn der doppelt 5-1 d — > f D0= 

genaue Wert gleich 0 ist 

Ist "wahr", wenn d.j kleiner d 2 5-1 d]_ d 2 > f D< 

ist 


Liefert den Absolutwert einer 36-1 ^ d __> DABS 

doppelt genauen Integer 


Vereinbart einen Array mit dop 6-3 

pelt genauen Integers 

Setzt die Zahlenbasis auf 10 2-7 


DARRAY 

DECIMAL 


Macht den Kontext -Wortschatz zum 9-2 DEFINITIONS 

aktuellen Wortschatz 


fiiefert die Stack-Tiefe ist* wfij. 
he : Len von einfach genauen Inte- 

ülefeifi die größere yfeh zwei 
doppelt genauen Integers 

Li o fort die kleinere von zwei 
doppelt genauen Integers 

Dreht das Vorzeichen einer dop 
pelt genauen Integer um 

Leitet eine Schleife ein 

Liest Diskettensektoren 


2-2 — > n 


5-1 d -> -d DNEGATE 


Entfernt die oberste einfach ge 
naue Integer vom Stack 


Dupliziert die ober: 
genaue Integer 


Schreibt Diskettensektoren 
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der FORTH-Wörts 


Bearbeitet den Block, der vom In 8-1 

halt von SCR bestimmt wird 

Bearbeitet Block n; n wird in SCR 4-2 

gespeichert 

Für Programmverzweigungen 4-2: 

Gibt ein Zeichen aus 7-1 

Markiert alle Puffer als leer 8-1 

Setzt -ft aufeinanderfolgende Byte 9-3 

auf den Wert 0, beginnend mit der 

FüKJTfc den Wörterbucheintrag aus, 9-3 


dessen Adresse auf dem Stack 

Beendet die Programmbearbeitung 9-3 

Liest Zeichen in den Arbeitsspei 
eher o i n, beginnend bei Adresse 
a, wobei maximal n Zeichen oder 
bis zum ersten Return geleseif; 
wird 

Belegt n aufeinanderfolgende 9-3 

Speicherwörter (beginnend begs- 
Adresse a) mit dem ASCII-Wert n 


Sucht die Adresse des nächsten 9-3 

Wortes im Eingabestrom 

Speichert die markierten fü;f(ör 8-1 

auf Diskette 

Löscht alle Wörter bis ein 2-4 

schließlich dem angegebenen aus 
dem Wörterbuch 

Name des Hauptwörterbuches 9-2 


EDIT 

ELSE 

EMIT 

EMPTY -BUFFERS 
ERASE 


EXECUTE 

EXIT 

EXPECT 


FILL 

FIND 

FLUSH 

FORGET 

FORTH 
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Liefert die Adresse des nächsten 
verfügbaren Wörterbuchbytes 

Umwandlung der Zahlenausgabe in' 
He x a de z Lira 1 da r s t öjygpti^ig' 

Zur Einfügung von Zeichen bei der 
Zahlenausgabe mit Maske 

Legt den Sch } e : f'eni ndex alÜif . den. 
Stack 

Legt den Testwert der Schleife 
auf den Stack 

Für Programmverzweigungen 

Schaltet von Compilierung in Aus 
führung um 

Gibt die erste Zeile von jät 
Blockes aus, beginnend mit Block 

°1 

Liefert den Index der dynamisch 
übernächsten Schleife auf den 
Stack 

Legt den ASCII-Code des nächsten 
•Eir.gabeze i chens arcjf den Stack: 

Gibt den Block aus, dessen Nummer 
in SCR gespeichert ist 

Beendet eine Schlei 

Überträgt die n ersten Zeichen 
des Strings, der bei a beginnt, 
den temporären Arbeitsbereich 

Legt die Länge eines Strings auf 
den Stack 


7-2 — > a HERE 

2- 7 HEX 

3- 3 c -> HOLD 

4- i3 — > n I 

4-3 — > n i- 

4-2 f -> IF 

9-1 n2 — > IMMEDIATE 

9-i nl n2 — > INDEX 

4-3 -> n J 


7-1 -> n KEY 

8-1 L 

4-3 LEAVE 

7-3 a n — > a A LEFTS 


7-3 a — > n LEN 
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Gibt den Block n aus und legt n 
ifi. SCR ab 

2-3 

w > 

LIST 

Niimit den Stack-Wert, ohne ihn z.u- 
interpretieren, in die Compila 
tion mit auf 

9-1 

n -> 

LITERAL 

LSdt den Block n 

2-3 

#-> 

LOAD 

Lädt n 2 Block, beginnend mit n 2 

8 -| 


LOADS 

Inkrementieffc den Schleifenindex 

4-3 


LOOP 

Doppelt genaues Produkt zweier 
einfach genauer Integers 

5-3 

1*2 A — > d 

M* 

Multipliziert d x mitr^und spei 
chert das Broas'fc't als dreifach 
genaue Integer, welche dann durch 
n A dividiert wird; der Quotient 
ist doppelt genau 

5-3 

di n.^3 

-> a 2 

M*/ 

Gemischte Addition 

5-3 

d. | n — > d 2 

M+ 

Gemischte Subtraktion 

5-3 

n -> d 2 

M- 

Gemischte Division 

5-3 

d ni -> n 2 

M/ 

Wie M/, außer daß sowohl Quotient 
als auch Rest geliefert werden 

5-3 

ix 

r q 

M/MOD 

Lief 0 $§jj^den größeren . -zwei 
Werteft 

2-7 

% n Z w> " 

MAX 

Übertrag! $kn 'die Adresse a A einer, 
r. A Zeichen langen Te i ; string, der 
ab der n A ten Zeichenposlllji'on des 
Strings a begi^^ij'. 

7-3 

an f,J§ 

MID$ 

Liefert den kleineren von zwei 
Werten 

2-7 

Hl h -> * 

MIN 

Liefert den Rest der*' Qisrision von 

2-1 

»r$ - 

MOD 
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Verschiebt 16 Byte lange Spei' 

cherwörter, beginnend bei a''. 

Erlaubt rekursive Aufrufe 

Leitet eine CASF-Ar.we : sur.q ein 

ErsetSjfet eine Zahl durch die nega 
tive Zahl mit dem gleichen Betrag 

Negiert ein Flag 

Setzt die Ein-/Ausgabebasis für 
Wahlen auf das Oktalsystem 

Allgemeiner Ausgang in CASE-An- 
weisungen 

Dupliziert die zweite Zahl an 
oberste Stack-Position 

jjöihäjgi' die Anfangsadresse des 
temporären Arbeitsbereichs 

Löscht den Bildschirm 

Legt die Ausgabe sowohl auf 
Bildschirm als auch .-^ti^-ujS'rüeker 

Legt die Ausgabe nur auf den 
Drucker 

Für Zeicheneingabe 

Löscht den Return-Stack 

Überträgt die oberste ei.ijfäöh 
genaue Integer vom Return-Stack 
auf den Parameter-Stack 

Dupliziert die oberste einfach 
genaue Integer vom Return-Stack 
auf den Parameter-Stack 


9-3 

4-6 

2-7 


MYSELF 

NCASE 

NEGATE 


4-5 

2-7 


fi "> f- 


NOT 

OCTAL 


OTHERWISE 


"i n 2 
"i n 2 "i 


3-1 

3-1 


PAGE 

PORT 


7-2 

2-6 


QUERY 

QUIT 
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Initialisiert den Zuf allszahleh: 
■Generator 

Für die Programmierung von Sch lol 

überträgt die n letzten Zeichen 
■des Strings ff- den temporären. 
Arbeitsbereich, liefert dessen 

■Erzeugt eine Zufallszahl und 
speichert sie SEED 

Erzeugt eine Zufallszahl zwischen 

•Legt die n-te einfach genaue 
Integer auf dem Stack an oberste 
Stack-Position 

Befördert die dritte e : nfäch ge 
raue integer an oberste Stack- 
Position 

Markiert alie. Puffer für nachfol 
gende Sicherungen 

Enthält die Adresse des zuletzt 
bearbeiteten Blockpuffers 

Fügt den ASCII-Code des Minuszei 
chens bei Zahlenausgabe mit Maske 
ein, falls n negativ ist 

Gibt eih Leerzeichen aus 

Vertauscht die beiden obersten 
Stack-Einträge 

Bei Programmverzweigungen benö 
tigt 


2-7 RANDOMI ZE 

4-4 REPEAT 

7-3 an -> B1 RIGHTS 


2-7 RN1 

2-7 »i __> n 2 RND 

2-2 El — > ROLL 


2-2 


8-1 


3-3 


"3 R0T 

n 3 n l 

SAVE-BUFFERS 

SCR 

SIGN 


3- 1 SPACE 

2-2 n A n ^ SNAP 

4- 2 THEN 
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Anhang: Glossar der FORTH-Wörter 


Gibt n Zeichen beginnend ab der 
Adresse a aus 

3-3 

a iS - > 

TYPE 

Vorzeichenlose Integertitdldljplika- 

5-4 

°1 _H> 

u U* 

Gibt eine verzeichenlose Integer 

5-4 


U. 

Gibt eine vorzeichenlose Integer 
Jftci einem n Stellen breiten Daten 
feld aus 

5-4 

u. n -> 

U.R 

Vörzeichenlose DJ vi s i on mit dop 
pelt genauem Dividenden, liefert 
Quotienten und Rest 

5~$; 

ö-d O! 

r q 

U/MOI 

"Wahr", falls u kleiner ug 'ist 
(vprzei chor. 1 ose Integer s) 

5-t 

> 

u< 

Für die Programmierung von Schlei 

4-><|. 

f -> 

UNTIL 

Markiert alle Blockpuffer als 

gesicher-% 

8-1 


UPDATE 

Wandelt die ASCII-Darstellung 
einer Integer in Binärform um 

7-3 

a -> n 

VAL 

Definiert eine Variable 

6-2 


VARIAEL*: 

Für did'Vereinbarung eines neuen 
Wortschatzes 

9-2 


VOCABULAF : 

Für die Programmierung von 
Schleifen 

4-4 


WH ILE. 

Liest Zeichen aus dem feingabe 
ström; Trenner ist Zeichen mit 
ASCII-Code n 

7-2 

n -> a 

WORE 

Bitweises exklusives ODER 

5-5 

°S " > 

n XCSJ 
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Anhang: Glossar der FORTH-Wörte: 


Frag'- nach Y oder N; N .liefert 4-5 — > f Y/N 

Watitjieitswert "wahr" 


Beendet Compilierung und leitet;. 9-1 

Ausführung ein; wird in Wortdefi 
«Jt;idnen benötigt 

Bewirkt, daß ein Wort mit dem 9-1 

Status IMMEDIATE compiliert wird 

Beendet Ausführung und faffrt, mit 9-1 

der Cöcipilierung 


[COMPILE] 

] 
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Stichwortverzeichnis 


. 97 

.R 106 
i- 21 1 

e Ä'' 
ü 97 

H 22 
# 11 0 
#> 109 

#IN 98 
#S 111 
$! 257 

$" 258 

$ + 258 

$-TB 266 
$• 257 

$ARRAY 255 
$ COMP ARE 2' 51 

$CONSTANT 254 
$VARIABLE 255 
$XCG 260 
300 
( 62 
) 62 
k 40 
V 173 
*/MOD 1 73 
+ > 22 35 
+LOOP 137 
37 

-TRAllifiG 2<65 
/ 42 

/LOOP 183 
/MOD 43 
0< .1 23 

0 = 122 
0> 123 

.1 + 84 

1- 84 

1/X 193 

10 A 193 

1 6* 85 
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Stichwortverzeichnis 


A 

ABORT 150 
ABORT" 150 
ABS 87 

Absolutwert 8 7 
Addition 25, 35 

doppelt genau 164 
Adresse 211 

Aktualisierung 26, 275 
Akfeiiflles Wörterbuch 2 99 
Algorithmus Igji' 

ALLOT 218 : 

A I phanuneri sehe Daten 239 
AND 184 

Anfangswert 136 
Arbeitsspeicher 20 

Arithmet ikübeilAÄ?^ '.1 7.3 

Array 207, 217, 219, 222 

Dimension 229 
Element 220 
mehrdimensionaler 2 7.1 
ASQ 266 

ASCII-Code 103, 266 

Assembler 13 
ATAN 193 
ATN2 194 

Ausgabe, doppelt genau 164, 165 

Ausgabemaske 107 
Ausrichtung, rechtsbündig 106 


B 

BASE 90: 

BASIC ,XS 

Bedingung, logische 121 

Befehl 22 

BEGIN 14 6, 'S$W: 

Bereitschaftsmeldung, Unterdrückung 98 
Betriebssystem 27, -273 

Bibliothek %$■ 

Bildschirm 3$; 

löschen 98 
Bildschirmeditor 25 
Bildschirmseite 2S. 
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Stichwortverzeichnis 


Integer 25, 39, 41 

doppelt genau 73 
vorzeichenlose 180 
Interndarstellung 103 
ijllsfcerpreter 17 


| 82, 


140 


_K 

Kassettenspeicher 12 
Kehrwert 193 
Kettungsfeld 297 
KEY 242 

Kommentar 15, 62 

Komplexe Zahl 

Arithmetik 200 
Ausgabe 199 
Eingabe 199 
Konkatenation 258 
Konstante 208 
Kontextwörtefbußh, 299 
Kontgrollstruktur, verschachtelte 131 


L 276 

Laufwerksnummer 283 
LEAVE 139, 144 

Leerzeichen 19, 63 

Ausgabe von 1 00 
nachlaufende 265 
Leerzeile 63 
LEFT$ 259 
LEN 266 
Library 16 

LIFO-Prijg|fp 22 

LIFO-Speicher 22 

Linke&'-$6 

LIST 61, 276 

LITERAL 296 

LOAD 28, 29, 277 
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Stichwortverzeichnis 


SGN 191 
SIGN ,'1’3;3 
SIN 193 
Skalieren 174 
Skalierungsf aktqr 174 
Sqrt'i er fo i qc 2 61 
Sortierwert 261 
SPACE 100 

Spe i eher, virtueller 69 
Speicherwort 217 
Spur 279, 283 

SQR 193 
Stack 20 
Daten 77 
Parameter 77 
Überlauf. .50 
Stack-Operationen 22 
Stack-Relabi#i 36 
Stackdiagramm 24 
Stackeintrag 

auswählen 53, 55 

dritter 54 
duplizieren 
Stackelemeiit 

duplizieren 48 
entfernen 50 
vertauschen 51 
Stacktiefe 57 
Standardeingabe 251 
Stapel 20 
Stapelspeicher 21 
Steuerzeichen 1Q5 
String 239 

ausgeben 113- 
Länge 266 
Verkettung 258 
Stringarray 255 
Stris;gko'S#%SÄe 254 
Steingva r ; ab ; o 255 
Subtraktion 37 

doppelt genau 166 
SWAP 51 
Syntax 29 
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Stichwortverzei chni.5 


TAN 193 
Tastatur- |ät 
Teilstring 260 
Terminal %% 

Testdateö 30 
Testwert 13b, 136 

Textausgabe 97 
Trenner 63 

iTign'özeicheft'19, 250' 
TYPE 113, 248, 286 


_U 

U* 182 
U. 180 
U.R 181 
U/MOÖ 182 
U< 183 

Umgekehrte Polnische Notation 23 
Umwandlung, String in Zahl 267 
Unterprogramm sSä; 

UNTIL 146 
UPDATE 274 
Urlader 279 
Ursprungszahl 88 


V 

VAL 267 
Variable 211 

Anfangswert 296 
Vergleich 121 

auf Gleichheit 124 
größe^.-jCJS’, 
größer Null, 1 23 
größer/gleich 126 
kleiner 124 
kleiner Null 123 
kleiner/gleich 126 
*5 Null 122 
Ungleichheit 126 
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S t Ictiwo r t ve r z e i ßhil i:s 


Verzweigung 

Auswahl .1 52: 
bedingte 127 
Virtueller Speicher 69 
VOCABULARY 298 
Vokabular 298 
Vorzeichen 

vertauschen 86 
Vorzeichenbit 108, 180 


w 

Wagenrücklauf 98 
WHILE I 4 : .7. 

Winkelgrad 193 
WORD 286 
WORDS ;|so 
Wort 22 

aufrufen 61 
Definition 59 
Wörterbuch 65 

aktuelles 299 
doppelter Eintrag 67 
EiSjtiag 65, ' 0^0 

Kontext 299 
Suche 65 
Variable 214 


X 

XOR 185 
X A Y 194 


Y 

Y/N 151 


Z 

Zahl 

ganze 39 
komplexe 199 
negative 38, , 

Typumwandlung .200 
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Der Einstieg in 

jfJJijjJ 


FORTH — die Sprache für alle, 
die mehr aus ihrem Computer 
herausholen wollen! 

Wer einen Computer hat, braucht 
nur noch dieses Buch, um in kur- 
zer Zeit eigene Programme in die- 
ser vielseitigen Sprache schrei- 
ben zu können. Dafür sorgt die 
gründliche und methodische 
Methode des Autors, der an einer 


Vielzahl genau erläuterter Bei- 
spiele alles Wichtige erklärt. Der 
Leser findet jedoch nicht nur eine 
Einführung in das Programmieren 
mit FORTH; viele andere wichtige 
Themen werden erörtert, unter 
anderem 

• Vergleich von FORTH mit 
anderen Sprachen 

• Editieren von Programmen 


Markt Technik Verlag Aktiengesellschaft 
ISBN 3-89090-085-2 


• Fehlersuche und -korrektur 

• Diskettenoperationen 

• Zahlentypen 

• Grundlagen des strukturier 
ten Programmierens 

• Der FORTH-Standard 
FORTH- 79 und 
Erweiterungen 

• Ausführliches Glossar 


D 

Sfr. 53,4 


